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FOREWORD 

The  CDC  6700  computer  is  a permanent  file  oriented  system.  Since  system 
malfunctions  can  occur,  a program  should  be  available  for  determining  if 
the  permanent  files  are  properly  stored  and  catalogued.  This  report  gives 
a detailed  description  of  a program  that  handles  this  task.  The  program  is 
for  the  SCOPE  3. A. 3 operating  system. 


The  work  reported  here  was  funded  by  the  computer  systems  support  code 
DK9933A.  The  report  was  reviewed  by  Mr.  Alban  P.  Gass  and  Mr.  John  G. 
Perry,  Jr.  of  NSWC/DL.  The  author  is  particularly  grateful  to  Mr.  Perry 
for  his  many  suggestions  and  comments. 
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RALPH  A.  NIEMANN,  Head 
Warfare  Analysis  Department 
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ABSTRACT 


This  report  gives  a detailed  description  of  a program,  currently  in 
operation  at  NSWC/DL,  that  determines  if  the  permanent  files  are  properly 
stored  and  catalogued  on  the  CDC  6700  computer.  The  program  serves  only 
in  a diagnostic  capacity.  Its  purpose  is  not  to  correct  errors,  but  only 
to  find  and  report  them.  Such  a program  is  needed  since  system  malfunctions 
can  occur.  The  documentation  is  intended  primarily  for  system  analysts. 

The  report  defines  each  task  that  is  involved,  and  examines  the  coding  that 
performs  the  task.  Background  information  is  provided  when  needed.  The 
program  is  for  the  SCOPE  3.4.3  operating  system. 
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B.  DISTRIBUTION 


Introduction 


The  CDC  6700  is  a permanent  file  oriented  machine.  A file  that  is  stored  on 
disk  will  reside  in  one  or  more  record  blocks  (RB's).  These  RB’s  will  be 
linked  to  one  another,  forming  what  is  called  an  RB  chain.  The  arrangement 
maintained  for  referencing  the  files  is  fairly  comprehensive.  Each  file  is 
required  to  have  a name,  a number  (called  the  cycle  number) . and  an  ID.  The 
ID  is  a word  that  identifies  the  creator,  owner,  or  user  of  the  file.  Several 
files  may  have  the  same  file  name.  However,  files  that  have  the  same  file 
name  and  the  same  ID  must  contain  different  cycle  numbers.  The  Permanent 
File  Catalog  (PFC)  contains  an  entry  for  each  file.  Included  in  this  entry 
is  the  name  of  the  file,  its  ID,  cycle  number,  creation  date,  a bit  which 
indicates  whether  it  is  stored  on  tape  or  disk,  and  its  RB  chain  (if  it  is 
stored  on  disk).  A second  file,  the  Permanent  File  Directory  (PFD),  provides 
the  proper  facilities  for  locating  the  PFC  entry  for  a file.  The  PFD  contains 
an  entry  for  each  file  name.  An  entry  contains  pointers  to  all  the  PFC  entries 
that  have  the  same  file  name  and  same  ID  but  different  cycle  numbers. 

Since  system  malfunctions  can  occur,  a program  should  be  available  for  deter- 
mining if  the  permanent  files  are  properly  stored  and  catalogued.  The  purpose 
of  this  report  is  to  give  a detailed  description  of  the  RBTC  program.  This 
program  checks  the  RB  chains  for  the  PFD  and  PFC,  and  examines  the  PFC  entries 
(including  their  RB  chains)  for  the  permanent  files.  This  RB  chain/PFC 
analyzer  is  for  the  Scope  3.4.3  operating  system. 
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Whenever  the  analyzer  is  used,  it  is  required  that  no  new  programs  be  read 
into  the  input  queue,  no  programs  in  the  output  queue  be  printed,  and  that  the 
program  be  permitted  to  run  to  completion  without  interruption.  In  other  words, 
it  is  required  that  the  patient’s  condition  not  be  modified  until  diagnosis  is 
complete.  This,  however,  should  cause  no  hardship.  The  analyzer  can  examine 
the  patient  quite  rapidly.  At  the  present  time  it  takes  only  10-15  CDC  6400 

seconds  for  the  program  to  examine  the  18000  files  on  the  CDC  6700  at  NSWC/DL. 

Unless  many  irregularities  have  to  be  reported  on,  the  entire  job  (including 

printing)  normally  takes  less  than  20  CDC  6400  seconds.  In  contrast,  the 
auditor  AUDIT  (a  CDC  program)  takes  30  minutes! 


The  analyzer  serves  only  in  a diagnostic  capacity.  Its  purpose  is  not  to  cor- 
rect errors,  but  only  to  find  and  report  them.  If  the  files  are  inadvertently 
modified  while  being  examined,  then  no  damage  is  done.  This  can  only  cause  the 
program  to  abort  prematurely  or  to  obtain  incorrect  results. 

The  administrative  structure  of  the  analyzer  is  quite  simple.  Each  major  task 
is  handled  by  a separate  subroutine.  The  main  program  calls  these  routines  in 
sequence.  After  the  routines  have  finished,  the  final  results  are  printed  and 
the  program  terminates.  In  this  report  a separate  section  is  devoted  to  each 
of  the  major  routines.  The  routines  are  discussed  in  the  order  that  they  are 
called  by  the  main  program.  Each  routine  is  described  in  detail.  Additional 
sections  are  included  that  provide  background  information  and  describe  sub- 
routines that  are  used  by  the  major  routines.  Listings  of  the  main  program, 
all  the  major  routines,  and  most  of  the  subsidiary  routines  are  given  in 
appendix  A. 
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f The  analysis  performed  by  the  analyzer  involves  the  following  steps.  First 

I the  RB  chains  for  the  PFD  and  PFC  are  examined.  If  an  error  is  detected  in 

I either  of  the  chains,  then  in  most  cases  the  job  terminates.  The  error  is 

; considered  to  be  too  severe  to  permit  analysis  to  continue.  Otherwise,  if  no 

t such  error  is  detected,  then  the  PFC  entries  for  all  the  permanent  files  are 

- next  read  and  examined.  At  the  time  this  is  done,  normally  no  errors  are 

reported.  A temporary  file  (tape  2)  is  maintained  for  referencing  the  errors. 
' After  the  entries  have  been  examined,  the  first  half  of  the  program  is 

> finished.  Now  the  system  must  read  tape  2,  collect  together  all  the  errors 

for  each  individual  file,  and  report  them  to  the  user.  The  REPORT  routine 
is  responsible  for  coordinating  most  of  these  activities.  Portions  of  the 
PFC  may  have  to  be  read  a second  time  in  order  that  REPORT  can  provide  all 
the  information  that  is  needed.  After  REPORT  is  finished,  the  results  are 
printed  and  the  program  terminates. 

At  the  present  time,  possibly  a maximum  of  65000  files  can  be  examined.  The 
precise  restrictions  on  the  size  and  arrangement  of  the  permanent  files  are 
itemized  on  page  A-l,  at  the  beginning  of  the  listing  of  the  main  program. 
Several  of  the  restrictions  are  needed  by  SETUP,  which  is  the  first  routine 
that  is  called.  This  routine  defines  the  environment  in  which  the  analyzer 
operates. 
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The  RBRTBL  Array  and  Related  Concepts 


The  major  task  of  the  analyzer  is  to  check  the  RB  chains  of  the  permanent 

files  for  conflicts.  In  order  to  know  which  RB ' s are  used  and  where  they  are 

used,  an  array  named  RBRTBL  is  used  that  is  similar  to  the  RBR  bit  tables 

employed  by  the  system.  However,  instead  of  referencing  an  RB  by  a single  bit, 

as  is  done  in  the  RBR  bit  tables,  20  bits  are  used  in  the  RBRTBL.  i 

The  array  RBRTBL  is  a matrix  having  3232  rows  and  8 columns.  Each  column  con- 
tains 20  bit  fields  for  the  RB's  of  three  RBR  ordinals,  being  arranged  as 
follows: 


1-st  ordinal 

2-nd  ordinal 

3-rd  ordinal 

word  1 

word  2 

20  bits  — ■* 

20  bits  — > 

*-  20  bits  — * 

word  3232 

Specifically,  bits  40-59  of  the  i-th  word  of  the  column  is  the  20  bit  field 
for  the  i-th  RB  of  the  first  RBR  ordinal,  bits  20-39  of  the  i-th  word  is  the 

20  bit  field  for  the  i-th  RB  of  the  second  RBR  ordinal,  and  bits  0-19  of  the 

i-th  word  is  the  20  bit  field  for  the  i-th  RB  of  the  third  RBR  ordinal. 

At  the  present  time  RBR  ordinals  0-39  are  permitted  by  the  analyzer  to  be  used 
for  permanent  files.  However,  since  the  RBRTBL  has  8 columns  and  each  column 

contains  information  for  the  RB's  of  three  RBR  ordinals,  only  24  of  these  40 

RBR  ordinals  can  be  used  at  any  one  time.  The  40  RBR  ordinals  are  linked  to  the 
RBRTBL  by  the  arrays  MORD  and  NORD,  each  of  which  is  of  dimension  40.  If  RBR 
ordinal  ORD  is  being  used  then  M0RD(0RD+  1)  =M  and  N0RD(0RD+  1)  =N  where 

N = the  number  of  the  column  of  RBRTBL  that  contains  the  ordinal  ORD 
M=  1,2,3  depending  on  whether  the  RBR  ordinal  ORD  is  the  first,  second, 
i or  third  RBR  ordinal  of  the  column. 

i 

M and  N are  called  the  coordinates  of  the  ordinal  ORD  in  the  RBRTBL.  If  the  RBR 
ordinal  ORD  is  not  being  used  then  these  coordinates  (i.e.,  M0RD(0RD+1)  and 
NORD (ORD  + 1 ) ) are  set  to  0. 

Consider  now  the  bits  in  the  20  bit  field  for  an  RB.  The  first  bit  (on  the  left) 
; . is  currently  unused  and  will  have  the  value  0.  The  second  bit  is  called  the 

flaw  bit.  If  this  bit  is  1 then  the  RB  is  flawed.  Otherwise,  if  the  bit  is  0 
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then  the  RB  is  unflawed.  The  remaining  18  bits  have  one  of  the  three  following 
formats : 


(1)  If  the  RB  is  first  found  in  word  n of  the  RB  chain  for  the  PFD  then  the 

third  bit  (called  the  PFD  bit)  is  set  to  1,  the  fourth  bit  (called  the 

PFC  bit)  is  set  to  0,  and  the  remaining  16  bits  contain  the  number  n. 

(2)  If  the  RB  is  first  found  in  word  n of  the  RB  chain  for  the  PFC  then  the 
PFD  bit  is  set  to  0,  the  PFC  bit  is  set  to  1,  and  the  remaining  16  bits 
contain  the  number  n. 

(3)  Otherwise,  if  the  RB  is  first  found  in  an  RB  chain  for  a permanent  file 

in  the  RBTC,  then  the  PFD  and  PFC  bits  are  set  to  0 and  the  last  16  bits 

contain  the  number  of  the  pru  in  the  RBTC  where  the  RB  is  found. 

Here  the  word  and  pru  counts  begin  at  0.  Hence,  neither  the  PFD  nor  the  PFC  can 
have  an  RB  chain  that  contains  more  than  2ls  words,  and  the  PFC  cannot  be  longer 
than  216  prus  (i.e.,  1170  RB's)  in  length. 

The  restrictions  that  the  RBTC  is  no  longer  than  1170  RB's  in  length  and  that 
at  any  one  time  no  more  than  24  RBR  ordinals  are  being  used  must  be  regarded  as 
being  permanent.  However,  the  restriction  that  only  40  RBR  ordinals  are  available 
for  use  can  easily  be  removed. 
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SUBROUTINE  SETUP(ERR) 

The  SETUP  routine  is  responsible  for 

(1)  finding  the  RBR  ordinals  for  the  permanent  file  devices  that  are  turned  on, 

(2)  setting  up  the  RBRTBL  array  for  these  RBR  ordinals,  and 

(3)  setting  the  flaw  bits  in  the  RBRTBL  for  the  flawed  RB's. 

ERR  is  a variable  that  is  set  by  the  routine  to  inform  the  main  program  if 
these  tasks  are  completed  properly.  If  an  error  is  detected  which  requires  that 
the  job  be  aborted  prematurely,  then  an  error  message  is  printed  and  ERR  is 

assigned  a nonzero  value.  Otherwise,  if  no  such  error  is  detected,  then  ERR  is 

assigned  the  value  0. 

The  subroutines 

CALL  PFEST(NUM, LEST) 

CALL  RLABEL(e, LABEL, ERR) 

are  used  by  SETUP  for  finding  the  RBR  ordinals  and  flawed  RB's.  Here  NUM  is  a 
variable  and  LEST  an  array.  When  PFEST  is  called,  NUM  and  LEST  are  assigned  the 
values: 

NUM  = the  number  of  permanent  file  devices  that  are  turned  on 
LEST = the  list  of  EST  ordinals  for  the  devices  that  are  turned  on 

If  NUM  * 0 or  NUM  >24  then  an  error  message  is  printed,  the  error  indicator  ERR 
is  set  to  1,  and  SETUP  terminates. 

If  1^ NUM  ^ 24  then  for  each  EST  ordinal  e in  LEST  the  RLABEL  subroutine  is 

called  for  reading  the  label  of  the  device.  1 Here  LABEL  is  an  array  that  is  128 

words  in  length.  If  the  label  cannot  be  read  then  ERR  is  set  by  RLABEL  to  a non- 
zero value,  an  error  message  is  printed  by  SETUP,  and  SETUP  terminates.  Other- 
wise, if  the  label  can  be  read,  then  the  first  10  words  of  the  label  are  stored 
in  words  1-10  of  LABEL,  and  words  11-64  of  LABEL  contain  a bit  table  for  the 
RB's  on  the  device.  If  a bit  is  1 then  the  corresponding  RB  is  flawed.  Otherwise, 
the  RB  is  unflawed. 

Three  fields  in  the  first  10  words  of  LABEL  are  of  interest.  The  third  byte  of 
word  10  contains  the  EST  ordinal  for  the  device.  Either  this  number  is  the  same 
as  the  EST  ordinal  e in  LEST,  or  we  have  an  error.  An  error  in  this  case  indi- 
cates that  the  permanent  file  pack  is  not  mounted  on  the  correct  EST.  If  such  an 
error  occurs  then  an  error  message  is  printed,  ERR  is  set  to  1,  and  SETUP  termi- 
nates. Secondly,  bits  0-5  of  word  5 contain  the  RBR  ordinal  for  this  device 
(here  it  is  assumed  that  there  is  only  one  RBR  ordinal  for  each  permanent  file 
device).  If  ORD  is  the  RBR  ordinal  and  ORD  > NUMTBL  (NUMTBL  is  the  largest  RBR 
ordinal  that  can  be  used),  then  again  we  have  an  error,  an  error  message  is 
printed,  ERR  is  set  to  1,  and  SETUP  terminates.  Thirdly,  the  last  byte  of  word  10 
contains  the  number  of  RB's  on  the  device  (both  flawed  and  unflawed).  Here  it  is 
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1 For  information  on  labels  see  pages  II-1-61  and  II-3-19  of  reference  (1). 
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checked  that  this  number,  denoted  by  MAX,  satisfies  l£MAXs3232. 
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The  arrays  WORD  and  NORD,  both  of  dimension  40,  are  defined  next  by  SETUP. 
These  routines  contain  the  coordinates  (M,N)  of  the  RBR  ordinals  for  the 
permanent  file  devices.  After  MORD  and  NORD  are  defined,  tasks  (1)  and  (2) 
are  finished.  Task  (3)  is  now  accomplished  by  the  DO  loop  immediately 
following  statement  31. 

Comments.  The  purpose  of  the  SETUP  routine  is  to  set  up  the  RBRTBL,  AREA, 

MORD,  and  NORD  arrays,  which  define  the  environment  in  which  the  program 
will  operate.  The  array  AREA  is  not  used  in  SETUP,  but  is  employed  in  later 
routines  for  obtaining  the  20  bit  fields  for  the  RB's  in  the  RBRTBL.  The 
LEST,  LABEL,  and  FLAW  arrays  are  of  interest  only  in  SETUP.  They  are  not 
used  elsewhere.  The  subroutines  PFEST  and  RLABEL  (which  are  also  used  only 
in  SETUP)  are  our  interface  with  the  system  tables  and  the  label  handling 
operations.  One  may  either  use  the  PFEST  and  RLABEL  routines  employed  at 
NSWC/DL  (which  have  separate  documentation),  or  one  may  use  alternate  pro- 
cedures for  giving  the  RBR  ordinals  and  flawed  RB's.  One  may,  of  course, 
totally  rewrite  the  SETUP  routine.  If  this  is  done,  then  the  following  two 
requirements  must  be  met: 

(1)  The  RBRTBL,  AREA,  MORD,  and  NORD  arrays  must  still  contain  the  same 
information.  The  only  exception  is  that  the  flaw  bits  in  the  RBRTBL  need 
not  be  set.  However,  if  a flaw  bit  for  an  RB  is  not  set,  then  the  program 
will  not  know  that  this  RB  is  flawed. 

(2)  The  error  indicator  ERR  must  still  be  used  to  inform  the  main  program 
that  an  error  has  occurred  which  requires  that  the  job  be  aborted  prematurely. 
Set  ERR  t 0 if  such  an  error  occurs.  Otherwise,  set  ERR = 0. 

The  assumption  that  there  is  only  one  RBR  ordinal  for  each  permanent  file 
device  is  used  only  in  SETUP.  Thus  if  SETUP  is  rewritten  then  this  restric- 
tion may  be  removed. 

In  SETUP  it  is  currently  assumed  that  only  40  RBR  ordinals  are  available 
for  use.  The  value  NUMTBL,  which  is  the  largest  ordinal  that  may  be  used, 
is  assigned  the  default  value  39  in  the  main  program.  The  restriction  on 
the  number  of  available  RBR  ordinals  can  be  easily  modified  by  changing 
the  DO  statement  preceding  statement  11,  changing  the  FORMAT  statement  121, 
and  replacing  the  dimensions  on  the  COMMON  card: 

COMMON /RBRORD /MORD (40) ,NORD(40) 

This  card  must  also  be  replaced  in  the  routines  RBSET  and  RBTCHK,  and  the 
default  value  for  NUMTBL  in  the  main  program  should  be  modified. 
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Reading  the  PFD  and  PFC 


The  subroutines 
CALL  GETFILE 
CALL  TEST 
CALL  PFRETRN 

permit  us  to  read  the  PFD  and  PFC.  A routine  that  uses  any  of  these  three 
subroutines  requires  the  statement 

COMMON/ IFET/ IBUFF (2049) , RTCODE ,NWDS , LEVEL, FILE 
where  RTCODE  and  FILE  are  integer  variables.  The  variable  FILE  is  set  by  the 
user  and  may  tike  the  values  0 or  1.  If  FILE = 0 then  the  PFD  is  the  file  to 
be  read.  Otherwise,  if  FILE=  1 then  the  PFC  is  the  file  to  be  read. 


The  GETFILE  routine  is  the  routine  that,  in  effect,  opens  the  file,  TEST  is 
the  routine  for  reading  this  file  after  it  has  been  opened,  and  PFRETRN  is 
the  routine  for  closing  the  file.  More  precisely,  GETFILE  creates  a FNT  entry 
for  the  file  requested.  After  the  FNT  entry  is  created,  the  TEST  routine  may 
be  called  one  or  more  times  to  read  portions  of  the  file.  (The  first  time 
that  TEST  is  called,  a FET  for  the  file  is  created  by  TEST.)  After  the  read- 
ing has  been  completed  the  routine  PFRETRN  eliminates  the  FNT  and  FET  entries 
for  this  file. 


When  TEST  is  called,  a portion  of  the  file  is  read  and  stored  into  the  IBUFF 
array,  and  the  variables  RTCODE,  NWDS,  and  LEVEL  are  set.  These  variables 
are  defined  as  follows: 

RTCODE  =1  if  an  EOR  mark  is  read 

RTCODE  = 2 if  an  EOF  mark  is  read 

RTCODE  =3  if  an  EOI  mark  is  read 

Otherwise  RTCODE  = 0.  Also 

NWDS  = the  number  of  words  that  are  read  into  IBUFF 
LEVEL = the  level  number  of  the  record. 

A maximum  of  2048  words  are  read.  If  an  EOR,  EOF,  or  EOI  mark  is  encountered 
then  reading  terminates.  In  this  case  NWDS  is  the  number  of  words  read  that 
precede  the  mark. 


The  TEST  routine  operates  as  follows.  The  first  time  that  TEST  is  called  the 
first  NWDS  words  of  the  file  are  read.  The  next  time  that  TEST  is  called  the 
next  NWDS  words  of  the  file  are  read,  etc.  If  an  EOR  or  EOF  mark  is  read 
(which  to  the  author's  knowledge  should  never  occur),  then  TEST  can  be  called 
again  to  read  the  information  that  follows  the  mark.  However,  when  an  EOI 
mark  is  read,  then  this  mark  terminates  the  file  and  no  further  reading  is 
possib le . Then  the  PFRETRN  routine  must  be  used. 


If  the  words  of  a pru  are  numbered  from  0 through  63,  then  an  EOR,  EOF,  and 
EOI  mark  affects  the  count  of  the  prus  as  follows.  If  n - 1 prus  have  been 

read  and  the  first  w words  (Os  w < 63)  of  the  n-th  pru  are  followed  by  a mark, 

then  the  mark  is  considered  to  be  located  at  word  w of  the  pru  and  to  termi- 
nate the  pru.  In  this  case  we  have  what  is  called  a short  pru.  Any  informa- 

tion that  follows  the  mark  is  considered  to  begin  at  word  0 of  pru  n+1. 
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RB  Chains 


1 
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An  RB  chain  consists  of  one  or  more  word  pairs.  We  review  briefly  the  struc- 
ture of  these  word  pairs.  For  additional  information  see  pages  4-35  through 
4-37,  11-1-110,  and  II-3-7  of  reference  (1). 
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36 

24 

12 
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link 

ord 

k 

RB0 

RBi 

RB2 

RB3 

RB4 

rbe 

RBS 

rb7 

Note  the  above  representation  of  a word  pair.  Bytes  2-4  of  the  first  word  of 
the  word  pair  and  bytes  0-4  of  the  second  word  of  the  word  pair  are  called 
the  RB0,...,RB7  bytes  respectively.  Byte  0 of  the  first  word  contains  the  link 
to  the  next  word  pair  in  the  RB  chain,  if  there  is  one.  Otherwise,  if  the  word 
pair  is  the  last  word  pair  of  the  chain  then  byte  0 contains  the  value  0. 

If  the  word  pair  references  one  or  more  RB's,  then  all  the  RB's  referenced  by 
the  word  pair  must  have  the  same  RBR  ordinal.  If  ord  is  the  RBR  ordinal  then 
the  first  9 bits  of  byte  1 of  the  first  word  contain  this  ordinal  and  the 
remaining  3 bits  of  byte  1 contain  the  index  k of  the  first  byte  RBk  that 
references  an  RB.  Byte  RBk  contains  the  number  n (l^n£  3232)  of  the  RB  that 
is  being  referenced,  and  RBk » ; , . . . ,RB7  contain  the  numbers  of  the  remaining  RB's 
that  are  being  referenced  by  the  word  pair.  The  first  byte  RBb  (m>k)  that  con- 
tains the  number  0,  if  there  is  one,  terminates  this  list.  (Then  byte  RBb_! 
contains  the  number  of  the  last  RB  that  is  referenced  by  the  word  pair.) 

It  is  possible  that  the  index  k refers  to  a byte  RBk  that  contains  the  number  0. 
If  this  occurs  then  the  word  pair  references  no  RB's  and  an  RBR  ordinal  is  not 
needed.  However,  the  only  case  (to  the  author's  knowledge)  when  an  ordinal  is 
not  given  is  when  the  first  9 bits  of  byte  1 contain  the  value  777  (octal) 
and  the  index  k is  set  to  7.  Then,  of  course,  RB7  contains  the  value  0. 
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SUBROUTINE  RBSET (CHS IZE.NUM.DSKRBS .CHAIN' 


The  first  prus  of  the  PFD  and  PFC  contain  only  the  RB  chains  for  the  PFD  and 
PFC.  The  RBSET  routine  examines  the  RB  chain  for  the  file  under  consideration 
(the  PFD  or  PFC).  All  variables  used  in  this  routine  are  integer  variables. 

If  an  error  is  detected  which  requires  that  the  job  be  terminated  prematurely, 
then  the  variable  WD  is  set  to  0 in  order  to  inform  the  main  program  of  this 
fact.  (This  variable,  as  well  as  many  of  the  other  variables  employed  by  the 
routine,  are  declared  in  COMMON  statements.)  After  the  SETUP  routine  has 
finished,  the  main  program  first  calls  the  RBSET  routine  by  the  statements 

FILE  = 0 
CALL  GETFILE 
WD  = 400000B 

CALL  RBSET (PFDSIZE, PFDMRK, PFDRBS , PFDCHN (1) ) 

for  checking  the  RB  chain  of  the  PFD.  After  this  checking  has  been  completed, 
the  main  program  calls  PFRETRN  to  close  the  PFD  file.  If  no  fatal  errors  have 
been  detected  then  the  RBSET  routine  is  recalled  by  the  statements 


FILE  = 1 
CALL  GETFILE 
WD  = 200000B 

CALL  RB S ET (PFCS IZE , PFCMRK , PFCRBS , PFCCHN ( 1 ) ) 

for  examining  the  RB  chain  of  the  PFC.  After  this  analysis  is  completed,  unless 
a fatal  error  has  been  detected,  the  PFC  file  is  left  open. 


The  RBSET  routine  operates  as  follows.  In  the  statements  preceding  statement 
100,  RBSET  first  checks  if  there  are  any  EOR,  EOF,  or  EOI  marks  preceding  the  RB 
chain.  If  there  is  an  EOI  mark  or  if  there  are  50  or  more  EOR  and/or  EOF  marks, 
then  this  is  a fatal  error  and  the  system  proceeds  to  the  Error  Processor 
section  of  RBSET.  Otherwise,  if  EOR  and/or  EOF  marks  exist,  but  there  are  less 
than  50,  then  an  error  message  is  printed  but  analysis  is  not  terminated.  This 
is  the  only  error  that  is  detected  by  RBSET  that  is  not  judged  to  be  serious 
enough  to  warrant  a premature  abort.  In  this  case,  however,  disk  addresses 
cannot  be  given  for  the  ^ata  in  the  file.  Upon  the  termination  of  the  checking 
for  the  marks,  if  an  EOI  mark  has  not  been  detected  then  the  argument  NUM  has 
as  its  value  the  number  of  EOR  and/or  EOF  marks  preceding  the  RB  chain  of  the 
file.  From  the  above  CALL  statements  we  note  that  this  defines  the  variables 
PFDMRK  and  PFCMRK  as  follows: 

PFDMRK  = the  number  of  EOR  and/or  EOF  marks  that  precede  the  RB  chain 
for  the  PFD 

PFCMRK = the  number  of  EOF  and/or  EOF  marks  that  precede  the  RB  chain 
for  the  PFC 

These  variables  are  used  throughout  the  program  for  determining  if  disk 
addresses  can  or  cannot  be  given.  Disk  addresses  for  information  in  the  PFD  chn 
only  be  given  if  PFDMRK =0,  and  disk  addresses  for  information  in  the  PFC  can 
only  be  given  if  PFCMRK  =0. 
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If  the  only  marks  found  to  precede  the  RB  chain  are  NUM  EOR  and/or  EOF  marks 
where  Os NUM  <50,  then  RBSET  begins  its  analysis  of  the  RB  chain  at  state- 
ment 100.  From  the  above  CALL  statements  we  note  that 

CHSIZE  = the  maximum  number  of  prus  that  the  RB  chain  for  the 
file  can  take.1 

Thus  the  variable  MAXWPR  defined  in  statement  100  is  the  maximum  number  of 
word  pairs  that  the  RB  chain  can  have.  Each  time  that  a pass  is  made  through 
the  DO  loop  that  begins  here  a different  word  pair  of  the  chain  is  analyzed. 

The  word  pairs  are  taken  in  sequence.  If  more  than  MAXWPR  word  pairs  are 
found  then  we  have  a fatal  error.  Upon  exiting  from  the  DO  loop  (at  the  state- 
ment following  statement  131)  the  system  will  proceed  to  statement  242  of  the 
Error  Processor  section  of  RBSET. 

Analysis  of  a word  pair  is  as  follows.  First  the  index  I of  the  first  word  of 
the  word  pair  in  IBUFF  is  checked.  If  I>NWDS  (NWDS  is  the  number  of  words  of 
the  RB  chain  that  were  read  by  TEST),  then  an  EOR,  EOF,  or  EOI  mark  appears 
in  the  middle  of  the  RB  chain  and  the  system  is  instructed  to  proceed  to  state- 
ment 240  of  the  Error  Processor  section.  Otherwise,  if  I < NWDS  then  the  link, 
the  RBR  ordinal  ORD  of  the  RB 1 s referenced  by  the  word  pair,  and  the  index  IND 
of  the  first  byte  that  references  an  RB  are  obtained.  If  ORD > NUMTBL  (NUMTBL 
is  the  largest  RBR  ordinal  that  can  be  used)  then  we  have  a fatal  error  and  the 
system  is  instructed  to  proceed  to  statement  200  of  the  Error  Processor  section. 
Otherwise,  the  (M,N)  coordinates  of  the  ordinal  are  obtained.  If  the  RBR  ordi- 
nal is  not  listed  as  being  used,  then  again  we  have  an  error  and  again  the 
system  is  told  to  go  to  statement  200.  Otherwise,  it  is  checked  if  the  index 
IND  is  0 or  3.  If  IND ^0,3  then  it  is  not  assumed  that  there  is  an  error.  To 
the  author's  knowledge  this  will  not  occur.  However,  to  be  on  the  safe  side,  a 
message  is  printed  and  then  analysis  continues. 

The  inner  DO  loop  beginning  the  third  statement  after  statement  121  is  for 
checking  the  bytes  that  reference  the  RB's.  However,  this  loop  processes  the 
bytes  of  only  one  word  of  the  word  pair.  Thus  the  loop  must  be  entered  twice  if 
IND  <3.  If  IND  a 3 then  K is  assigned  the  value  2 and  the  inner  DO  loop  is 
entered.  Upon  exiting  from  the  loop,  the  bytes  of  the  second  word  of  the  word 
pair  have  been  checked  and  we  are  finished  with  the  RB  bytes.  However,  if  IND<3 
then  K is  first  assigned  the  value  1,  the  value  IND  is  increased  by  5,  and  the 
inner  DO  loop  is  entered.  Upon  exiting  from  the  loop  the  bytes  of  the  first  word 
of  the  word  pair  will  have  been  checked.  In  order  to  check  the  bytes  of  the 
second  word  K is  reset  to  2,  IND  is  reset  to  3,  and  the  inner  DO  loop  is 
reentered. 

The  operation  of  the  inner  DO  loop  is  quite  simple.  Each  time  that  a pass  is 
made  through  the  loop  a different  byte  is  checked.  The  bytes  are  taken  in 
sequence.  In  a pass  through  the  loop,  first  the  number  of  the  RB  that  is  being 


1 The  variables  PFDSIZE  and  PFCSIZE,  which  are  defined  on  page  A-l,  are  used 
here  only. 
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referenced  by  the  byte  is  obtained.  This  number  is  denoted  by  the  variable 
RB.  If  RB  = 0 then  the  RB 1 s referenced  by  the  word  pair  have  all  been  previously 
checked  (if  there  were  any)  and  we  are  done.  Otherwise,  if  RB  > 3232  then  we 
have  a fatal  error  and  the  system  is  instructed  to  proceed  to  statement  202  of 
the  Error  Processor  section.  However,  if  this  error  does  not  occur  then  RBSET 
next  checks  if  the  20  bit  field  for  the  RB  in  the  RBRTBL  is  0.  If  not  then  we 
have  a conflict  and  the  system  is  instructed  to  go  to  statement  210  of  the 
Error  Processor.  Otherwise,  if  no  conflict  is  found,  then  the  RB  reference  is 
considered  to  be  correct.  In  this  case,  the  value  of  the  variable  DSKRBS  is 
increased  by  1 (DSKRBS  is  the  number  of  RB's  in  the  RB  chain  that  have  been 
examined)  and  the  20  bit  field  for  the  RB  in  the  RBRTBL  is  modified  to  contain 
the  number  of  the  word  that  contains  this  byte.  By  the  way  in  which  the 
variable  WD  is  defined,  being  given  an  offset  value  of  400000B  or  200000B 
initially,  the  coding  will  also  automatically  set  the  PFD  or  PFC  bit,  whichever 
is  appropriate.  Then  the  pass  through  the  inner  loop  is  complete. 

After  the  RB  bytes  have  been  examined,  if  no  errors  have  been  detected  then 
RBSET  will  arrive  at  statement  130.  Here  it  is  checked  if  the  word  pair  is  the 
final  word  pair  of  the  chain.  This  completes  the  analysis  of  the  word  pair. 

Upon  the  termination  of  the  checking  of  the  word  pairs  of  the  RB  chain,  no 
matter  whether  an  error  has  been  detected  or  not,  we  note  from  the  CALL  state- 
ments at  the  beginning  of  this  section  that  DSKRBS  defines  the  variables  PFDRBS 
and  PFCRBS  as  follows: 

PFDRBS  = the  number  of  RB's  in  the  RB  chain  for  the  PFD  which  were 
examined  and  for  which  no  errors  were  detected 

PFCRBS = the  number  of  RB's  in  the  RB  chain  for  the  PFC  which  were 
examined  and  for  which  no  errors  were  detected 

These  variables  are  also  used  throughout  the  program  for  determining  if  disk 
addresses  can  or  cannot  be  given. 

After  the  RB  chain  has  been  examined,  if  no  fatal  errors  have  been  detected  then 
at  statement  140  the  RB  chain  is  copied  into  the  array  CHAIN.  From  the  CALL 
statements  at  the  beginning  of  this  section  it  follows  that 

PFDCHN  contains  the  RB  chain  for  the  PFD  and 

PFCCHN  contains  the  RB  chain  for  the  PFC. 

The  RB  chains  are  saved  since  they  may  be  needed  later  for  computing  disk 
addresses.  Next  RBSET  updates  the  variables  WD  and  I to  refer  to  the  beginning 
word  of  the  next  pru.  Also  it  checks  if  the  current  pru  contains  an  EOI  mark. 

If  the  pru  does  contain  an  EOI  mark,  then  the  mark  necessarily  must  follow  the 
RB  chain  but  we  still  have  a fatal  error.  Then  the  system  is  directed  to  pro- 
ceed to  statement  260  of  the  Error  Processor.  If  no  such  EOI  mark  exists,  and  if 
no  EOR  and/or  EOF  marks  precede  or  immediately  follow  the  RB  chain  in  the  same 
pru,  then  the  RBSET  routine  is  finished.  Otherwise,  a dump  of  the  RB  chain  is 
written  on  tape  1.  If  an  EOR  or  EOF  mark  follows  the  RB  chain  then  the  TEST 
routine  is  recalled  and  I is  reset.  Then  RBSET  terminates. 
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Note  All  dumps  that  are  to  be  printed  are  first  written  on  tape  1.  Then  at  the 
end  of  the  job,  at  statement  310  in  the  main  program,  tape  1 is  printed  and  the 
main  program  terminates. 

The  Error  Processor  Section 


Whenever  a fatal  error  is  detected  this  section  is  entered.  Here  error  infor- 
mation is  printed  and  (whenever  possible)  a dump  is  written  on  tape  1.  Also  the 
variable  WD  is  set  to  0,  and  then  RBSET  terminates.  After  RBSET  has  finished 
the  main  program  closes  the  file,  prints  tapes  10  and  1,  and  then  aborts.  (Tape 
10  has  not  yet  been  discussed.  In  this  case,  however,  only  tape  1 need  be  con- 
sidered. Tape  10  will  contain  no  information.) 

The  coding  in  this  section  is  fairly  straightforward,  requiring  only  the  use  of 
the  ADDRSS,  DSKADD,  and  PRTPRU  routines.  The  routine  ADDRSS  is  used  only  by 
RBSET.  Its  brief  definition 

SUBROUTINE  ADDRSS (M, I ,RB , PRU, WORD) 

INTEGER  RB, PRU, WORD 

C M IS  A 20  BIT  POSITIVE  INTEGER  (RIGHT  ADJUSTED)  THAT  REFERENCES 

C A WORD  IN  THE  RB  CHAIN  FOR  THE  RBTC  OR  PFD.  THIS  ROUTINE  DETER - 

C MINES  THE  ADDRESS  (RB , PRU, WORD)  OF  THE  WORD.  I IS  SET  TO  3 IF 

C THE  WORD  IS  IN  THE  RB  CHAIN  FOR  THE  PFC,  AND  I IS  SET  TO  4 IF 

C THE  WORD  IS  IN  THE  RB  CHAIN  FOR  THE  PFD. 

I=SHIFT(M,-17)+3 

WORD=M.AND. 77B 

PRU=SHIFT (M , -6 ) . AND . 17 7 7B 

RB=PRU/56 

PRU=PRU-RB*56 

RB=RB+1 

END 

requires  no  comment.  The  DSKADD  routine  is  us  id  for  obtaining  disk  addresses, 
and  the  PRTPRU  routine  writes  a pru  on  tape  1.  These  two  routines  are  described 
in  detail  in  the  next  two  sections. 

As  an  example  of  the  operation  of  the  Error  Processor,  consider  the  case  where 
there  is  a conflict.  At  statement  210  first  the  address  (NUMRB , PRU,W)  of  the 
word  that  references  the  RB  in  conflict  is  obtained.  Also  the  variable  INFO  is 
defined  to  reference  a word  that  contains  the  following  information: 

bits  0-19  contain  the  20  bit  field  of  the  RB  in  the  RBRTBL 
that  is  in  conflict 
bits  20-59  contain  zeros 


Then  a statement  is  printed  which  asserts  that  a conflict  exists,  and  RBSET 
checks  the  flaw  bit  of  the  20  bit  field  in  INFO.  If  the  bit  is  0 then  the  RB  in 
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conflict  is  not  flawed  and  the  system  is  instructed  to  go  to  statement  220. 
Otherwise,  the  system  is  instructed  to  print  the  fact  that  the  RB  is  flawed 
and  to  print  the  address  of  the  word  that  references  this  RB.  Now  if  the  RB 
is  unflawed,  then  at  statement  220  the  address  (NUMRB1,PRU1,W1)  of  the  pre- 
vious word  that  referenced  the  RB  is  obtained.  If  the  previous  reference  was 
made  in  the  same  file,  then  the  system  is  instructed  to  proceed  to  statement 
230.  Otherwise,  the  first  reference  must  have  been  from  the  PFD  and  RBSET 
must  now  be  examining  the  PFC.  In  this  case,  the  system  first  prints  the 
addresses  of  the  words  that  reference  the  RB  in  conflict.  Then  it  checks  if 
disk  addresses  can  be  obtained  for  the  RB's  in  the  PFD.  If  this  is  possible, 
then  the  disk  address  for  RB  NUMRB1  is  found  and  printed.  At  statement  208 
the  system  next  checks  if  disk  addresses  can  be  obtained  for  RB's  in  the 
PFC.  If  this  is  possible, then  the  disk  address  for  RB  NUMRB  is  found  and 
printed.  Thereupon  the  system  arrives  at  statement  300. 


Whenever  statement  300  is  reached,  all  the  error  information  has  been  printed 
and  the  only  tasks  left  are  to  set  WD  to  0 and  to  write  a dump  on  tape  1.  In 
the  coding  beginning  at  statement  310  a dump  is  written.  Unless  an  EOI  mark 
or  several  EOR  and/or  EOF  marks  are  encountered  in  the  middle  of  the  chain, 
the  dump  will  contain  the  entire  RB  chain  and  several  succeeding  prus.  After 
the  writing  is  finished  RBSET  terminates. 
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Disk  Addresses 


Assume  that  there  are  no  EOR,  EOF,  or  EOI  marks  at  the  beginning  of  the  file 

under  consideration  (the  PFD  or  PFC),  Consider  the  n-th  RB  of  the  file.  Then 

in  order  to  find  where  the  RB  is  stored  on  disk,  first  find  the  n-th  RB  that 
is  referenced  by  the  RB  chain  for  the  file.  If  the  word  pair  that  references 

this  RB  contains  the  RBR  ordinal  ORD,  and  if  m is  the  number  of  the  RB  being 

referenced  (this  number  is  stored  in  the  byte  that  references  the  RB),  then 
the  pair  of  numbers  (ORD,m)  tell  us  where  on  disk  the  n-th  RB  of  the  file  is 
stored.  We  shall  refer  to  (ORD,m)  as  the  disk  address  of  RB  n. 

Example  Since  it  is  assumed  that  the  RB  chain  for  the  PFD  begins  in  the  first 
RB  of  the  PFD,  in  order  to  find  where  on  disk  this  chain  is  located  it  is 
necessary  to  find  the  first  RB  that  is  referenced  by  the  RB  chain.  The  first 
word  pair  of  the  RB  chain  will  normally  reference  an  RB.  If  this  occurs  then 
the  RBR  ordinal  ORD  in  this  word  pair  and  the  number  m stored  in  the  first 
byte  that  references  an  RB  tell  us  where  on  disk  the  RB  chain  is  located.  We 
then  know  that  the  RB  chain  (which  resides  in  the  first  RB  of  the  PFD)  is 
stored  on  disk  in  RB  m of  RBR  ordinal  ORD.  In  this  case  RB  1 has  the  disk 
address  (ORD,m). 

SUBROUTINE  DSKADD(NUMRB .CHAIN, ORD, RB) 

Assume  now  that  we  wish  to  obtain  the  RBR  ordinal  (ORD)  and  the  disk  RB  number 
(RB)  for  RB  NUMRB  of  the  PFD  or  PFC.  Let  the  CHAIN  array  contain  the  RB  chain 
for  the  PFD  or  PFC.  Assume  that  no  EOR,  EOF,  or  EOI  marks  precede  the  RB  chain, 
and  that  NUMRB  is  less  than  or  equal  to  the  number  of  RB's  in  the  RB  chain 

that  have  been  examined  and  found  to  be  correct.  Then  the  DSKADD  routine  finds 

the  disk  address  (ORD,RB)  for  RB  NUMRB.  The  procedure  adopted  for  examining 
the  word  pairs  of  the  RB  chain  is  similar  to  that  used  by  the  RBSET  routine. 

The  coding  from  statement  100  to  the  end  of  the  routine  comprises  a loop.  Each 
time  that  a pass  is  made  through  the  loop  a different  word  pair  of  the  chain 
is  examined.  The  word  pairs  are  taken  in  sequence. 

Analysis  of  a word  pair  is  as  follows.  First  the  RBR  ordinal  ORD  and  the  index 
IND  of  the  first  byte  that  references  an  RB  are  obtained.  Then  the  DO  loop 
beginning  at  statement  121  is  entered.  This  DO  loop  is  for  counting  the  bytes 
that  reference  RB's.  However,  this  loop  processes  the  bytes  of  only  one  word  of 

the  word  pair.  Thus  the  loop  must  be  entered  twice  if  IND-  3.  If  IND^3  then  K 

is  assigned  the  value  2 and  the  DO  loop  is  entered.  Upon  exiting  from  the  loop, 
the  bytes  in  the  second  word  of  the  word  pair  have  been  counted  and  we  are 
finished  with  this  word  pair.  However,  if  IND  •' 3 then  K is  first  assigned  the 
value  1,  the  value  of  IND  is  increased  by  5,  and  the  DO  loop  is  entered.  Upon 
exiting  from  the  loop  the  bytes  of  the  first  word  of  the  word  pair  have  been 
counted.  In  order  to  count  the  bytes  of  the  second  word  K is  reset  to  2,  IND  is 
reset  to  3,  and  the  DO  loop  is  reentered. 

The  operation  of  the  DO  loop  is  quite  simple.  Each  time  that  a pass  is  made 
through  the  loop  a different  byte  is  examined.  The  bytes  are  taken  in  sequence. 
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In  a pass  through  the  loop,  first  the  number  of  the  RB  that  is  stored  in  the  ” 
byte  is  obtained.  This  number  is  denoted  by  the  variable  RB.  If  RB  = 0 then  1 
the  RB ' s referenced  by  the  word  pair  have  all  been  previously  counted  (if  | 
there  were  any)  and  we  are  finished  with  this  word  pair.  Otherwise,  if  RB  4-  0 \ 
then  the  value  of  the  variable  NUM  is  increased  by  1 (NUM  is  the  total  number  !j 
of  RB  references  that  have  been  encountered).  If  NUM  = NUMRB  then  we  are  done.  i 
The  current  values  for  ORD  and  RB  are  the  values  that  were  needed  and  the  j 
routine  terminates.  Otherwise,  if  NUM  ^ NUMRB  then  NUM  is  still  less  than  NUMRB  J 
and  this  pass  through  the  DO  loop  is  complete. 


SUBROUTINE  PRTPRU (I. PRU. MEM. NUMWDS, ICODE, K, IND) 


The  PRTPRU  routine  is  used  in  writing  dumps.  The  array  MEM  contains  a pru  to 
be  printed.  PRTPRU  has  the  task  of  writing  this  pru  on  tape  1.  The  arguments 
I,  PRU,  and  NUMWDS  are  assumed  to  have  the  values: 

I = the  index  of  the  beginning  word  of  the  pru  in  MEM 

PRU = the  number  of  the  pru 

NUMWDS  = the  number  of  words  in  MEM 

If  I + 63  s NUMWDS  then  MEM(I) ,MEM(I  + I) , . . . , MEM(I+ 63)  are  the  words  of  the  pru. 
The  argument  ICODE  is  ignored,  thereby  permitting  it  to  be  set  arbitrarily. 
Otherwise,  if  I + 63>NUMWDS  then  the  pru  is  a short  pru,  being  terminated  by 
an  EOR,  EOF,  or  EOI  mark.  The  argument  ICODE  informs  PRTPRU  which  type  of  mark 
terminates  the  pru.  ICODE  has  the  format: 

ICODE  = 1 if  an  EOR  mark  terminates  the  pru 

ICODE  = 2 if  an  EOF  mark  terminates  the  pru 

ICODE  = 3 if  an  EOI  mark  terminates  the  pru 

If  the  pru  is  short  and  UNUMWDS,  then  MEM(I) ,MEM(I + 1) , . . , ,MEM(NUMWDS)  are 

the  words  of  the  pru.  However,  if  I > NUMWDS  then  it  is  assumed  that  the  pru  to 
be  written  contains  no  words. 

Note  Because  of  the  way  in  which  the  IBUFF  array  is  used,  if  'EM  begins  at  the 
m-th  word  of  IBUFF,  then  it  is  assumed  that  I-  2049-m  ; i.e.,  it  is  assumed  that 
I refers  to  one  of  the  first  2048  words  of  IBUFF, 

PRTPRU  operates  as  follows.  First  it  is  checked  if  1 + 63  NUMWDS.  If  the  pru 
is  a short  pru  then  IND  is  set  to  1,  MAX  is,  set  to  NUMWDS,  and  the  system  is 
instructed  to  go  to  statement  20.  Otherwise,  if  the  pru  contains  64  words, 
then  IND  is  set  to  0 and  (in  the  loop  beginning  at  statement  10)  MAX  is  defined 
to  be  the  index  of  the  last  word  of  the  pru  that  contains  nonzero  information. 
(In  the  case  that  the  pru  contains  only  zeros,  then  MAX=I-1.)  The  purpose  of 
IND,  which  is  an  argument  of  PRTPRU,  is  to  inform  the  user  of  PRTPRU  if  the 
pru  is  short  or  not. 

In  the  coding  from  statement  20  to  statement  30,  a title  line  is  written  for 

the  pru.  This  line  contains  the  information  NUMRB,NUMPRU  where 

NUMRB = the  number  of  the  RB  that  contains  the  pru  and 
NUMPRU  = the  number  of  the  pru  in  this  RB. 

If  the  argument  K of  PRTPRU  has  been  assigned  a nonzero  value,  then  NUMRB, NUMPRU 
is  the  only  information  that  is  given  in  the  line.  Otherwise,  if  K * 0 then  the 
disk  address  of  RB  NUMRB  is  also  written. 

At  statement  30  it  is  first  checked  if  the  pru  contains  any  information.  If  not, 

then  at  statement  40  the  type  of  the  mark  that  terminates  the  pru  is  written1 

1It  should  be  noted  that  this  is  one  of  the  major  spots  in  the  program  where 
the  MARK  array  is  used.  This  array  is  defined  at  the  beginning  of  the  main 
program. 
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and  the  routine  ends.  If,  however,  the  pru  contains  information,  then  it  is 
next  checked  if  I>MAX.  This  can  occur  only  if  the  pru  consists  of  64  words, 
all  of  which  contain  only  zeros.  In  this  case,  at  statment  50  a message  is 
written  and  the  routine  terminates.  Otherwise,  if  the  pru  is  short  or  con- 
tains nonzero  information,  then  the  statement 

WRITE(1,32)  (IADD1 (WORD), MEM(J) .IBLANK (MEM(J)) ,J=I, MAX) 

writes  the  words  on  tape  1.  After  this  is  done,  if  the  pru  is  short  then  at 
statement  40  the  type  of  mark  that  terminates  the  pru  is  written.  Then  the 
routine  ends. 

The  above  WRITE  statement  operates  as  follows.  First  the  function  IADD1  is 
called.  Its  brief  definition 

INTEGER  FUNCTION  IADDl(N) 

IADD1=N 

N=N+1 

RETURN 

END 

may  appear  a bit  strange.  If  the  value  of  the  variable  N is  n,  then  after 
IADDl(N)  has  been  computed,  IADDl(N)=n  and  N=n+1.  Thus  the  n-th  time 
that  IADDl(WORD)  is  called  by  the  WRITE  statement,  IADDl(WORD)  = n-1  and 
WORD  = n.  Hence,  lADDl(WORD)  will  have  as  its  value  the  current  number  of  the 
word  in  the  pru  that  is  to  be  written  next. 

The  word  to  be  written  next,  namely  MEM(J) , is  to  be  written  in  both  020  and 
A10  formats.  For  the  latter  format  the  function  IBLANK  defined  by 

INTEGER  FUNCTION  IBLANK (N) 

IBLANK =N 
DO  10  1=1,10 
IBLANK=SHIFT ( IBLANK , 6 ) 

IF  ( (IBLANK. AND. 77B).EQ.O)  IBLANK=IBLANK.OR. 55B 
10  CONTINUE 
RETURN 
END 

is  needed.  Here  N references  a word.  IBLANK (N)  is  a modification  of  N where 
the  colons  (having  display  code  00B)  have  been  replaced  with  blanks  (having 
display  code  55B).  The  modified  word  IBLANK (MEM(J))  is  the  word  that  is 
written  in  the  A10  format. 
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PFC  Entries 

As  was  noted  earlier,  the  first  prus  of  the  PFC  contain  the  RB  chain  for 
the  PFC.  Consider  now  the  remaining  prus,  which  contain  the  PFC  entries 
for  the  permanent  files.  Word  0 of  each  pru  serves  the  purpose  of  indi- 
cating the  status  of  the  pru.  The  word  contains  the  information: 

Bit  1 = 1 if  the  pru  is  being  used  and  0 otherwise. 

Bit  4 = 1 if  the  pru  contains  an  entry  for  a file  in  the  I/O  queue 

and  0 otherwise. 

The  remaining  bits  are  0. 

If  bit  1 of  the  word  is  1,  then  words  1-62  of  the  pru  contain  a PFC  entry 
(or  a portion  of  a PFC  entry)  for  a permanent  file.  (Word  63  of  the  pru  is 
reserved . ) 

Only  one  PFC  entry  can  reside  in  a pru.  If  an  entry  occupies -two  or  more 
prus,  then  the  prus  being  occupied  are  contiguous,  following  one  another 
in  sequence.  The  initial  pru  of  an  entry  has  the  format  given  on  pages 
II-3-6,  II-3-8,  and  II-3-9  of  reference  (1).  Of  particular  interest  are 
the  number  L and  K stored  in  byte  3 of  word  11  and  byte  2 of  word  12 
respectively.'  Then 

K = the  number  of  words  following  word  12  that  precede  the  RB  chain 
L = the  total  number  of  words  in  the  entry. 

If  n is  the  number  of  words  in  the  RB  chain  for  the  entry,  then  L can  be 
defined  more  precisely  by 

L = K+  12  +n. 

Thus  if  L = K + 12  then  the  entry  has  no  RB  chain.  (This  can  occur.)  To  the 
best  of  the  author's  knowledge,  11^KS48  must  always  be  satisfied.  The 
restriction  K&48  ensures  that  the  RB  chain  must  begin  in  the  first  pru  of 
the  entry.  An  RB  chain  word  pair  can  never  begin  in  one  pru  and  end  in  an- 
other. Let  m=0  if  K is  odd  and  m=l  if  K is  even.  Then  words  K + 13  through 
61  + m of  the  first  pru  of  the  entry  provide  enough  space  for  %(49  + m-K) 
word  pairs  of  an  RB  chain  for  the  entry.  If  additional  storage  is  needed, 
then  one  or  more  continuation  prus  may  be  used.  Each  continuation  pru  pro- 
vides storage  for  31  additional  word  pairs.  The  word  pairs  are  stored  in 
words  1-62  of  a continuation  pru. 


I 1 These  numbers  are  in  decimal. 


■i 


i 

* 

\ 

:j 


19 


SUBROUTINE  RBTCHK 


RBTCHK  is  the  general  routine  for  analyzing  PFC  entries.  After  the  RB  chains 
for  the  PFD  and  PFC  have  been  examined  by  RBSET,  if  no  fatal  errors  have  been 
detected  then  the  main  program  sets  IERR = PFDMRK  + PFC MRK , modifies  WD  to  be 
the  number  of  words  in  the  PFC  that  have  been  processed,  and  then  calls  RBTCHK. 
Currently  the  variable  I is  the  index  of  the  word  in  IBUFF  that  is  word  0 of 
the  first  pru  in  the  PFC  that  follows  the  RB  chain  for  the  PFC.  Thus  if 
IBUFF(I)  contains  word  0 of  pru  m then  WD = (m-1)  * 64.  This  arrangement  is  pro- 
vided by  RBSET  in  the  coding  beginning  the  second  statement  after  statement 
140. 

Very  little  error  processing  is  done  by  RBTCHK.  Whenever  an  error  is  detected 
a 5 word  message  is  written  on  tape  2,  the  value  of  IERR  is  increased  by  1 
(if  the  error  is  not  a conflict),  and  the  value  of  MCOUNT  is  decreased  by  1. 

Then  if  MCOUNT = 0 the  routine  terminates.  Otherwise,  RBTCHK  continues  its 
analysis  of  the  PFC.  The  variable  IZERO  is  used  in  writing  messages  on  tape  2 
and  IERR  has  the  definition: 

IERR = the  number  of  errors  found  that  are  not  conflicts. 

Messages  may  be  issued  for  situations  that  occur  that  are  not  errors.  The 
first  word  of  a 5 word  message  indicates  the  type  of  situation  and  the  second 
word  contains  the  number  of  the  word  in  the  PFC  at  which  the  situation  occurred 
or  was  detected.  Only  MCOUNT  messages  will  be  written  on  tape  2.  Then  analysis 
of  the  PFC  by  RBTCHK  is  terminated.  The  variable  MCOUNT  is  defined  in  the  main 
program.  Its  value  cannot  exceed  4000.  This  restriction  is  not  needed  here, 
but  is  required  in  later  routines.  When  RBTCHK  terminates,  tape  2 will  reference 
(among  other  things)  all  errors  that  were  found  by  RBTCHK.  It  will  then  be  the 
task  of  the  later  routines  to  examine  each  of  the  5 word  messages,  and  to  report 
on  them  to  the  user. 
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The  layout  of  RBTCHK  can  briefly  be  summarized  as  follows.  All  the  statements 
from  statement  1 to  the  end  of  the  routine  comprise  a single  Toop.  One  pru  is 
examined  each  pass  through  the  loop.  The  prus  are  taken  in  sequence  until 

(1)  MCOUNT  messages  have  been  written  on  tape  2 or 

(2)  the  prus  of  the  PFC  have  all  been  examined. 

Then  the  routine  terminates.  (None  of  the  errors  detected  by  RBTCHK  are  con- 
sidered to  be  fatal,  requiring  a premature  abort  of  the  job.)  The  analysis  of 
a pru  normally  begins  at  statement  10.  However,  if  the  variables  NUM,  IPRU,  and 
WDPRU  have  not  been  set  then  analysis  begins  at  statement  1. 

All  variables  used  by  RBTCHK  are  integer  variables.  I, WD, IPRU, WDPRU, NUM  have 
the  definitions: 

I = the  index  of  the  word  in  IBUFF  to  be  examined  next. 

WD  = the  number  of  words  in  the  PFC  that  have  already  been  examined. 

IPRU = the  index  of  word  0 of  the  current  pru  in  IBUFF. 

WDPRU  = the  number  of  words  in  the  PFC  that  precede  the  current  pru. 

NUM = the  total  number  of  words  in  the  64  word  prus  in  IBUFF. 
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Thus  at  the  beginning  of  the  analysis  of  a pru,  IPRU  = I and  WDPRU  =WD.  The 
variable  L is  also  important.  At  the  beginning  of  a pru  L is  normally  0.  If 
L £ 0 then  a PFC  entry  that  occupies  more  than  a pru  is  being  examined.  In 
this  case,  the  pru  under  consideration  is  a continuation  pru  for  the  entry 
and  L is  the  number  of  words  in  the  RB  chain  for  the  entry  that  have  not  yet 
been  checked. 

The  operation  of  RBTCHK  is  as  follows.  Statement  1 is  encountered  when 
RBTCHK  first  begins  and  whenever  a new  portion  of  the  PFC  has  been  read  and 
stored  in  IBUFF  by  the  TEST  routine.  I and  WD  are  assumed  here  to  have 
already  been  defined.  RBTCHK  first  checks  if  NWDS  = 0.  If  this  is  the  case, 
then  the  pru  under  consideration  contains  no  words  and  the  system  is  in- 
structed to  go  to  statement  11  (see  the  next  paragraph).  Otherwise,  if 
NWDS  > 0 then  NUM,  IPRU,  and  WDPRU  are  defined  and  the  system  arrives  at 
statement  10. 

The  normal  flow  of  control  begins  at  statement  10.  Here  it  is  checked  if  the 
pru  under  consideration  contains  64  words.  If  it  does  then  the  system  proceeds 
to  statement  20.  Otherwise,  RBTCHK  next  checks  if  NWDS = 2048.  If  this  is  the 
case,  then  all  the  words  in  IBUFF  have  been  examined  and  the  system  is  in- 
structed to  go  to  statement  3.  Otherwise,  if  NWDS  ^ 2048  then  the  pru  is  a 
short  pru.  In  the  coding  beginning  at  statement  11  a message  is  written  on 
tape  2,  L is  reset  to  0,  IERR  is  increased  by  1 if  the  pru  is  not  terminated 
by  an  E0I  mark,  and  MCOUNT  is  decreased  by  1.  If  MCOUNT = 0 or  an  EOI  mark  ter- 
minates the  pru,  then  the  routine  ends.  Otherwise,  WD  is  increased  by  64  and 
the  system  arrives  at  statement  3.  Then  a new  portion  of  the  PFC  is  read  and 
stored  in  IBUFF  by  the  TEST  routine.  Also  I is  reset  to  1 and  the  system 
returns  to  statement  1. 

The  block  of  coding  beginning  at  statement  20  and  continuing  to  the  end  of 
the  routine  is  devoted  entirely  to  the  treatment  of  64  word  prus.  If  the  pru 
under  consideration  is  a 64  word  pru,  then  it  arrives  at  statement  20  of  this 
block  after  leaving  statement  10.  After  analysis  of  the  pru  has  been  completed, 
the  system  will  exit  from  the  block  in  the  coding  beginning  at  statement  500 
or  501.  Here  IPRU, WDPRU, I, WD  will  be  reset  to  prepare  the  system  for  the  next 
pru  to  be  examined.  Also  L will  be  reset  to  0 if  this  is  necessary.  Then  the 
system  will  return  to  statement  10. 

Tape  2 messages  are  handled  in  a systematic  manner  in  the  block.  If  the  message 
concerns  a situation  that  is  not  an  error,  or  if  it  refers  to  an  error  whose 
effects  are  local,  then  in  the  coding  the  message  is  processed  where  the  situa- 
tion is  detected.  After  the  processing  is  finished,  if  MCOUNT  / 0 then  analysis 
continues.  Otherwise,  if  the  message  refers  to  an  error,  the  existence  of 
which  leaves  in  doubt  either  the  validity  of  or  the  handling  of  the  remaining 
data  in  the  64  word  pru,  then  analysis  of  the  pru  is  terminated.  In  the  section 
of  coding  beginning  at  statement  400  the  error  is  processed.  After  this  is 
done,  if  MCOUNT ^ 0 then  at  statement  500  or  501  preparation  is  made  for  the 
analysis  of  the  next  pru. 
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The  section  of  coding  beginning  at  statement  20  directs  the  operation  of 
the  block.  If  L^O  then  the  pru  under  consideration  is  a continuation  pru 
for  a PFC  entry  and  the  system  is  instructed  to  go  to  statement  300.  Other 
wise,  if  L = 0 then  it  is  first  checked  if  word  0 of  the  pru  (the  word  that 
indicates  the  status  of  the  pru)  is  0.  If  this  is  the  case,  then  the  pru 
is  not  being  used  and  the  system  is  instructed  to  go  to  statement  501. 
However,  if  word  0 of  the  pru  is  not  0,  then  it  is  next  checked  if  word  0 
has  the  proper  format.  If  not,  then  the  system  is  instructed  to  go  to 

statement  400.  Otherwise,  if  word  0 has  the  proper  format,  then  the  pru 

is  the  beginning  pru  of  a PFC  entry.  I and  WD  are  now  updated  and  the 
system  arrives  at  statement  100. 

The  coding  beginning  at  statement  100  processes  the  first  words  of  a PFC 
entry.  It  is  first  checked  if  word  1 has  the  proper  format.  If  not,  then 

the  system  is  instructed  to  go  to  statement  400.  Otherwise,  L and  K are 

defined  to  be  the  numbers  stored  in  byte  3 of  word  11  and  byte  2 of  word 

12  respectively.  (See  the  discussion  on  page  19.)  If  L = K + 12  then  the 

entry  has  no  RB  chain.  In  this  case,  analysis  of  the  pru  is  complete  and 
the  system  is  instructed  to  go  to  statement  500.  Otherwise,  if  L^K  + 12 

then  it  is  next  checked  if  L-K  is  even,  L > K.  + 14  , and  1 1 K - 48.  If  any 

of  these  conditions  is  violated,  then  we  have  an  error  and  the  system  is 
instructed  to  go  to  statement  402.  However,  if  all  the  conditions  are 
satisfied  then  the  preliminary  analysis  of  the  entry  is  finished,  A mes- 
sage is  written  on  tape  2 if  the  entry  occupies  more  than  a pru,  and 
L,I,WD,MAX  are  assigned  the  values: 

L=  the  number  of  words  in  the  RB  chain. 

I = the  index  of  the  word  in  IBUFF  that  is  the  first  word  of  the 
RB  chain. 

WD = the  number  of  words  in  the  PFC  that  precede  the  RB  chain. 

MAX  = the  maximum  number  of  word  pairs  of  an  RB  chain  that  the  pru 
can  contain. 

Also  the  ENTRY  array  is  defined  and  the  system  arrives  at  statement  200. 
Henceforth,  for  the  remainder  of  the  analysis  of  the  entry,  L will  be  the 
number  of  words  in  the  RB  chain  for  the  entry  that  have  not  been  examined. 

In  general,  no  matter  whether  RBTCHK  arrives  at  statement  200  via  state- 
ment 100  or  statement  300,  the  situation  will  be  the  same.  If  at  statement 
20  the  pru  is  found  to  be  a continuation  pru  for  a PFC  entry,  then  the 
following  sequence  of  events  occur.  First  the  system  proceeds  to  the  sec- 
tion beginning  at  statement  300.  Here  word  1 of  the  pru  is  checked.  If 
the  word  contains  a label  for  a PFC  entry,  then  we  have  an  error  and  the 
system  is  instructed  to  go  to  statement  400.  Otherwise,  there  is  no  furthe 
preliminary  processing  for  the  system  to  do.  It  must  be  assumed  chat 
only  word  pairs  of  the  RB  chain  for  the  entry  are  stored  in  the  pru.  Then 
I,  WD,  MAX,  and  ENTRY  are  updated  and  the  system  proceeds  to  statement  200. 
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The  IX)  loop  beginning  at  statement  200  examines  the  word  pairs  of  the  RB 
chain  that  are  in  the  pru.  I'he  structure  of  this  loop  requires  no  comment, 
being  almost  tne  same  as  the  structure  of  the  DO  loop  in  RBSET  that  begins 
the  first  statement  after  statement  100.  I'he  following  three  details,  how- 
ever, are  of  interest  and  should  bo  kept  in  mind: 

(1)  If  an  RBR  ordinal  wRD  is  encountered  that  is  not  the  ordinal  for  a 
permanent  file  device  that  is  on,  then  wo  raav  or  may  not  have  an  error. 

Since  certain  temporary  files  (normally  I/O  files)  can  reside  on 
nonpermanent  devices,  there  is  often  the  possibility  that  ORD  may  be  the 
RBR  ordinal  for  a nonpermanent  ti'c  device. 

(2)  Conflicts  are  the  only  errors  found  in  this  section  that  are  not  con- 
sidered to  be  serious  enough  to  terminate  the  processing  of  the  pru.  If  a 
conflict  is  found  in  the  inner  !>>  loop  beginning  at  statement  221,  then  the 
error  is  processed  in  the  inner  I>)  loop.  After  this  is  done,  if  MCOUN! # 0 
then  analysis  continues  of  the  remaining  bvtes  of  the  word. 

(3)  The  array  ENTRY,  whose  purpose  is  to  hold  information  that  may  be 
inserted  in  the  RBRTBL,  is  defined  much  earlier  in  RBTCHK  than  in  RBSET. 

This  can  be  done  since  the  20  bit  fields  (in  the  RBRl’BL)  for  the  RB's 
referenced  in  the  RB  chain  for  the  entry  now  contain  pru  numbers  rather 
than  word  numbers. 

In  operation,  RBTCHK  analyzes  the  PFC  extremely  quickly.  The  time  that  the 
routine  takes  can  be  expected  to  increase  linearly  with  the  number  of  per- 
manent files.  After  the  routine  terminates  the  PFC  is  closed  by  PFRETRN,  a 
five  word  message  consisting  entirely  of  zeros  is  written  on  tape  2,  and 
tape  2 is  rewound.  This  finishes  the  first  half  of  the  program  (the  analysis 
portion).  Now  the  messages  on  tape  2 must  be  examined  and  reported  on. 

Note  Tape  2 should  have  been  treated  as  an  unformatted  binary  file.  This 
would  have  made  virtually  no  difference  in  the  timing,  but  the  coding 
would  have  been  a bit  cleaner.  As  it  stands,  tape  2 is  a file  consisting  of 
five  word  messages,  each  of  which  has  the  format  5^20. 


23 


1 

? 

i 


l 


1 


I 


t 


M 


l] 

f 1 

ff: 

L 1.1 


SUBROUTINE  INFOCON (MCOUNT) 

After  RBTCHK  terminates,  the  main  program  redefines  MCOUNT  to  have  the  value: 

MCOUNT  = the  number  of  messages  that  were  written  on  tape  2 
by  RBTCHK 

Also  messages  are  issued  to  the  dayfile  and  output  file  informing  the  user  of 
the  number  of  errors  found  that  are  not  conflicts.  After  this  is  done  the 
INFOCON  routine  is  called.  This  routine  reads  tape  2,  collecting  together  all 
the  conflicts  found  by  RBTCHK  that  do  not  involve  flawed  RB's  or  RB's  in  the 
RB  chains  for  the  PFD  and  PFC.  While  doing  this  the  following  variables  are 
defined : 

MPFD  = the  number  of  conflicts  with  the  RB  chain  for  the  PFD 
MPFC  = the  number  of  conflicts  with  the  RB  chain  for  the  PFC 
MFLAWS  = the  number  of  conflicts  involving  flawed  RB's 
MAX = the  number  of  conflicts  that  do  not  involve  flawed  RB's 
or  RB's  in  the  RB  chains  for  the  PFD  and  PFC 

After  the  conflicts  have  been  collected,  in  the  coding  following  statement  113 
INFOCON  rewinds  tape  2 and  issues  messages  to  the  dayfile  and  output  file 
reporting  the  information  MPFD, MPFC , MFLAWS , MAX.  Then  INFOCON  terminates. 

The  conflicts  not  involving  flawed  RB’s  or  RB’s  in  the  RB  chains  for  the  PFD 
and  PFC  are  collected  together  and  stored  in  the  array  CON.  CON  contains  24000 
words.  In  order  to  conserve  storage,  CON  is  permitted  to  occupy  the  storage 
space  that  RBRTBL  occupies.  This  can  be  done  since  the  RBRTBL  array  is  no 
longer  needed.  CON  has  two  sections.  The  first  section  consists  of  the  first 
20000  words  of  CON.  The  second  section,  which  is  the  subarray  CONPRU,  consists 
of  the  last  4000  words  of  CON. 

The  first  section  of  CON  contains  the  conflict  entries.  The  first  two  words  of 
an  entry  contain  the  RBR  ordinal  (ORD)  and  the  disk  RB  number  (RB)  of  an  RB 
that  is  in  conflict.  The  format  of  the  entry  is  ORD.RB.n.WD)  , . . . ,WDPi . Thus  the 
entry  contains  n + 3 words.  The  word  WDt  contains  the  pru  number  (shifted  to 
the  left  6 bits)  that  was  stored  in  the  RBRTBL  array  for  this  RB.  The  n - 1 
words  WD2,...,WDr  contain  the  word  numbers  of  the  words  in  the  PFC  that  sub- 
sequently tried  to  reference  this  RB  (when  it  was  already  known  to  be  in  use). 

An  entry  in  the  first  section  of  CON  must  contain  at  least  five  words.  Each 
entry  refers  to  a different  RB  in  conflict.  The  entries  are  stored  sequentially, 
being  ordered  by  the  values  of  ORD  and  RB.  If  MAX  is  the  number  of  conflicts, 
then  the  maximum  amount  of  storage  required  for  the  conflicts  in  the  first 
section  of  CON  is  5 * MAX.  Since  20000  words  are  being  allotted  for  this  section, 
the  section  can  contain  at  most  4000  entries.  This  limits  the  number  MCOUNT  of 
messages  that  can  be  issued  by  RBTCHK  to  4000. 

The  second  section  of  CON,  namely  the  subarray  CONPRU,  contains  the  numbers  of 
the  prus  in  the  PFC  that  first  referenced  the  RB's  in  conflict.  These  numbers 
are  listed  in  increasing  order. 
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The  coding  of  INFOCON  is  fairly  self-contained,  requiring  only  the  aid  of  the 
SHIFT  and  ASHIFT  routines.  ASHIFT  is  a routine  for  shifting  data  in  an  array. 
If  A is  an  array  of  dimension  n then 

CALL  ASHIFT(A,n,k) 

shifts  the  data  in  A k words  to  the  right.  The  coding 

SUBROUTINE  ASHIFT(A,N,K) 

INTEGER  A(N) 

C HERE  IT  IS  ASSUMED  THAT  K IS  A POSITIVE  INTEGER  EQUAL  TO  OR  LESS 

C THAN  N.  THE  ROUTINE  SHIFTS  THE  DATA  IN  A(l) , . . . ,A(N-K)  K WORDS  TO 

C THE  RIGHT. 

IF  (K.EQ.N)  RETURN 

I=N 

M=N-K 

DO  10  J=1 , M 
A(I)=A(I-K) 

10  1=1-1 
RETURN 
END 

which  defines  the  routine  requires  no  comment. 

INFOCON  collects  the  conflicts  as  follows.  First  the  variables  MAX , MPFD , MPFC , 
MFLAWS  are  set  to  0 and  the  storage  area  for  CON  is  cleared.  Then  the  DO  loop 
following  statement  1 is  entered.  This  DO  loop  reads  the  MCOUNT  messages 
written  on  tape  2 by  RBTCHK.  Each  time  that  a pass  is  made  through  the  loop  a 
different  message  is  read.  The  messages  are  taken  in  sequence.  (MCOUNT  must 
always  be  greater  than  0.  If  MCOUNT  < 4000  then  tape  2 contains  a message  con- 
cerning the  EOI  mark  for  the  PFC.) 


Consider  now  the  i-th  pass  through  the  loop.  First  the  i-th  message  on  tape  2 
is  read  and  it  is  checked  if  the  message  refers  to  a conflict.  If  not,  then  we 
are  finished  with  the  message  and  the  system  is  instructed  to  go  to  statement 
113  (which  terminates  this  pass  through  the  loop).  Otherwise,  if  the  message 
refers  to  a conflict  then  (0RD,RB)  is  the  disk  address  of  the  RB  in  conflict, 
WD  is  the  number  of  a word  in  the  PFC  that  references  this  RB,  and  INFO  is  a 
word  containing  the  information: 

bits  0-19  contain  the  20  bit  field  of  the  RB  in  the  RBRTBL 
that  is  in  conflict 
bits  20-59  contain  zeros 


Letting  W = SHIFT(INFO, -16) + 1 then 


W = 


r 5 

- 3 
2 

u 


if  the  conflict  involves  a flawed  RB 
if  the  conflict  is  with  the  RB  chain  for  the  PFD 
if  the  conflict  is  with  the  RB  chain  for  the  PFC 
otherwise 
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Depending  on  the  value  of  W,  the  count  (MFLAWS,  MPFD,  MPFC,  or  MAX)  of  the 
number  of  conflicts  of  the  type  involved  is  increased  by  1.  If  W ^ 1 then  we 
are  finished  and  the  system  is  instructed  to  go  to  statement  113.  Otherwise, 
in  the  coding  immediately  following  statement  14  the  number  of  the  pru  (INFO) 
that  first  referenced  the  RB  in  conflict  is  inserted  in  CONPRU.  After  doing 
this  the  system  arrives  at  statement  100. 

In  the  section  beginning  at  statement  100,  a search  is  made  for  a conflict 
entry  in  CON  that  references  the  RB  having  disk  address  (0RD,RB).  If  none  is 
found,  then  at  statement  102  the  5 word  entry 

0RD,RB,2,INF0,WD 

for  the  conflict  is  inserted  in  the  first  secion  of  CON.  Otherwise,  if  an 
entry  0RD,RB,n,WD! , . . . ,WDn  is  found  that  references  the  RB  in  conflict,  then 
WDt  = INFO  and  at  statement  112  the  entry  is  changed  to 

0RD,RB,n  + IjWDj , . . . ,WDn ,WD  . 

After  a new  entry  is  inserted  or  an  existing  entry  is  modified,  then  the  pass 
through  the  loop  is  complete. 


■ J 


Preliminary  Considerations  concerning  the  Processing  of  Errors 

After  INFOCON  terminates,  it  is  necessary  to  modify  the  contents  of  word  WDX 
of  each  conflict  entry  ORD ,RB ,n, WDj^  , . . . ,WDn  in  CON.  WDj  currently  contains 
the  number  of  the  pru  in  the  PFC  (shifted  6 bits  to  the  left)  that  first 
references  the  RB  in  conflict.  (ORD,RB)  is  the  disk  address  of  the  RB  in 
conflict.  Word  WDj  must  be  modified  to  contain  the  number  of  the  word  in  the 
pru  that  first  references  this  disk  RB.  This  task  requires  that  the  PFC  be 
read  a second  time  by  the  TEST  routine.  If  the  task  could  be  avoided  (which 
it  cannot),  then  the  entire  program  could  be  restructured  so  as  to  avoid  a 
second  reading  of  the  PFC. 

REPORT  is  the  routine  that  has  the  primary  responsibility  of  reporting  the 
results  of  the  analysis  done  by  RBTCHK.  If  there  are  errors  in  a pru  in  the 
PFC  then  messages  are  written  concerning  these  errors  and  a brief  dump  is 
given.  The  dump  will  contain  the  pru  in  question,  preceded  normally  by  P prus 
and  followed  normally  by  Q prus.  A maximum  of  DLIMIT  such  dumps  will  be  given 
by  REPORT.  The  parameters  P,Q, DLIMIT  are  set  at  the  beginning  of  the  coding 
of  the  REPORT  routine.  It  is  assumed  that  PSr2,  Q>2,  and  DLIMIT  SO.1  The 
current  values  used  are  P = 2,  Q=2,  and  DLIMIT  = 150. 

In  the  environment  in  which  we  are  operating,  where  the  PFC  is  read  by  TEST 
and  stored  in  IBUFF,  a problem  now  arises  in  the  fact  that  we  can  read  for- 
wards, from  the  beginning  of  the  PFC  to  the  end  of  the  PFC,  but  we  cannot 
reverse  the  reading  process  and  read  backwards,  from  the  end  of  the  PFC  to 
the  beginning  of  the  PFC.  The  existence  of  a procedure  for  reversing  the 
direction  of  the  reading  process  would  be  welcomed,  since  in  preparing  a dump 
for  a pru  that  contains  an  error,  it  is  desired  that  the  pru  be  given  along 
with  P preceding  prus.  However,  since  no  such  procedure  exists,  we  do  what  we 
consider  to  be  the  next  best  thing  under  the  circumstances.  We  provide  a queue, 
the  array  IBUFF1,  consisting  of  the  P prus  immediately  preceding  the  first  pru 
in  IBUFF. 

The  array  IBUFF1  must  be  of  dimension  65*  (P  + 1)  or  greater.2  A pru  entry  in 
IBUFF1  consists  of  65  words.  The  first  word  of  an  entry  contains  the  number  n 
of  words  in  the  pru  (0  i n s 64).  If  n = 64  then  the  remaining  64  words  of  the 
entry  contain  the  64  words  of  the  pru.  Otherwise,  if  the  pru  is  short,  then 
the  next  n words  of  the  entry  contain  the  words  of  the  pru  and  the  (n  + 2)-nd 
word  of  the  entry  contains  the  RTCODE3  for  the  mark  that  terminates  the  pru. 

The  entries  are  arranged  in  sequence,  the  first  entry  containing  the  most 
recent  pru  to  be  inserted.  Whenever  a new  entry  is  to  be  inserted,  the  first 
P-1  entries  already  in  the  queue  are  shifted  65  words  to  the  right  by  ASHIFT 
(thereby  eliminating  the  P-th  entry)  and  then  the  entry  is  inserted. 

1 If  P is  reset  to  a value  that  is  greater  than  the  number  of  prus  containing 
the  RB  chain  for  the  PFC,  then  take  note  of  the  discussion  at  the  bottom  of 
page  35. 

2 The  P prus  in  IBUFF1  require  65  * P words.  However,  65*  (P  + 1)  words  are  need- 
ed since  an  additional  pru  is  often  saved.  For  further  details  see  page  35. 

3 See  page  7 . 
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SUBROUTINE  GETPRU ( PRLf . I ) 

In  order  to  report  the  results  of  the  analysis  done  by  RBTCHK,  periodically 
the  PFC  must  be  read  and  the  queue  IBUFF1  updated.  GETPRU  is  the  routine  that 
is  called  by  REPORT  to  carry  out  these  tasks.  When  GETPRU  is  called  it  is 
assumed  that 

PRU  = the  number  of  the  pru  in  the  PFC  that  is  wanted 
PRUO = the  number  of  the  pru  in  the  PFC  that  is  currently 
the  first  pru  in  IBUFF 

and  that  PRU 5 PRUO.  When  this  routine  terminates,  IBUFF  will  contain  the  pru 
that  is  wanted  and  I will  be  the  index  of  the  word  in  IBUFF  where  the  pru 
begins.  (If  I>NWDS,  which  can  occur  only  if  NWDS  ^ 2048,  then  I = NWDS  + 1 and 
the  pru  under  consideration  will  contain  no  words.)  Also  PRUO  and  IBUFF1  will 
be  updated,  if  this  is  necessary. 

For  convenience,  momentarily  let  L denote  the  value  of  PRUO  when  GETPRU  ter- 
minates. If  it  is  assumed  that  whenever  GETPRU  is  called  to  find  a pru,  no 
later  call  for  GETPRU  will  be  for  finding  an  earlier  pru,  then  IBUFF1  need 
only  be  updated  if  PRU<L  + P.  Otherwise,  if  PRU  ^ L + P then  the  contents  of 
IBUFF1  will  be  of  no  interest. 

The  coding  of  GETPRU  is  short,  but  a bit  tricky.  Beginning  at  statement  11, 

NUM  and  L are  assigned  the  values: 

NUM=the  total  number  of  prus  in  IBUFF1 

L = the  total  number  of  prus  in  the  PFC  that  have  been  read 

Then  it  is  checked  if  PRU  < L.  If  this  is  the  case,  then  there  is  almost 

nothing  to  be  done.  PRUO  and  IBUFF1  need  not  be  modified.  In  this  case,  the 

system  is  instructed  to  go  to  statement  40  where  the  index  I of  the  pru  is 
set.  Then  the  routine  terminates.  Otherwise,  if  PRU s L then  PRUO  is  reassigned 
the  value  L.  Also  IBUFF1  is  updated  if  PRU<PRU0  + P,  and  at  statement  10  the 
next  portion  of  the  PFC  is  read  by  TEST.  After  this  is  done,  the  system  again 
arrives  at  statement  11.  Now  the  next  pass  through  this  loop  begins. 

The  IBUFF 1 array  is  updated  as  follows.  First  M is  defined  to  be  the  number 
of  prus  that  are  to  be  inserted  into  IBUFF1.  Then  the  entries  in  IBUFF1  are 

shifted  M*65  words  to  the  right,  and  it  is  checked  if  the  first  pru  to  be 

inserted  contains  64  words  (i.e.,  it  is  checked  if  NWDS  =2048).  If  not,  then 
I is  set  to  1,  K is  set  to  2048,  and  the  system  proceeds  to  statement  30. 
Otherwise,  if  the  first  pru  to  be  inserted  is  a short  pru,  then  at  statement 
20  K and  N are  assigned  the  values 

K * the  total  number  of  words  in  the  64  word  prus  in  IBUFF 
N = the  number  of  words  in  the  last  pru  in  IBUFF  (which  is  short) 

and  the  short  pru  is  inserted  in  the  first  N + 2 words  of  IBUFF1.  After  this 


1 The  coding  for  NUM  must  take  the  form  that  it  does,  for  if  NWDS  = 64  * n 
where  NWDS  / 2048,  then  IBUFF  contains  n full  prus  and  one  0 word  pru. 
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is  done,  at  statement  22  it  is  checked  if  M=l.  If  this  is  the  case,  then  the 
update  of  IBUFFl  is  complete.  Otherwise,  I is  set  to  66,  the  value  of  M is  re- 
duced by  1,  and  the  system  arrives  at  statement  30. 
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In  the  DO  loop  beginning  at  statement 
IBUFFl.  Each  time  that  a pass  is  made 
serted.  The  prus  are  taken  in  sequence 
of  a pass,  I and  K have  the  values: 


30,  M 64  word  prus  are  inserted  into 
through  the  loop,  a different  pru  is  in- 
, from  right  to  left.  At  the  beginning 


I = the  index  of  the  word  in  IBUFFl  where  the  next  word  is  to  be 
inserted 

K = the  index  of  the  last  word  of  the  pru  in  IBUFF  that  is  to  be 
inserted 


First  the  value  of  K is  reduced  by  64,  thereby  setting  it  to  be  the  number  of 
words  in  IBUFF  that  precede  the  pru  which  is  to  be  inserted.  Then  J is  defined 
to  be  the  index  of  the  word  in  IBUFF  where  the  pru  begins,  and  the  pru  is 
inserted  into  IBUFFl.  After  this  is  done,  at  statement  32  the  pass  through  the 
loop  terminates.  After  the  M prus  have  been  inserted,  the  update  of  IBUFFl  is 
complete. 
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SUBROUTINE  REPORT 


After  INFOCON  terminates,  the  PFC  is  opened  by  GETFILE  and  the  REPORT  routine 
is  called.  REPORT  has  the  responsibility  of  gathering  together  and  reporting 
the  results  of  the  analysis  done  by  RBTCHK.  If  a pru  is  referenced  in  the 
CONPRU  array  and/or  there  are  messages  on  tape  2 concerning  the  pru,  then  a 
dump  is  written  on  tape  1 for  the  pru.  Each  dump  has  a preface.  The  first 
line  of  the  preface  identifies  the  pru  and  contains  the  number  of  the  dump. 

The  remainder  of  the  preface  contains  whatever  comments  and/or  complaints 
that  REPORT  wishes  to  make  concerning  the  pru.  As  noted  earlier,  the  dump 
contains  the  pru  under  consideration,  preceded  normally  by  P prus  and  followed 
normally  by  Q prus.  Also,  a maximum  of  DLIMIT  dumps  are  issued  by  REPORT. 

REPORT  generates  three  files.  The  first  file,  tape  1,  contains  the  dumps  and 
their  prefaces.  The  second  file,  tape  10,  contains  copies  of  all  the  prefaces. 
This  file,  in  effect,  summarizes  the  information  found  on  tape  1.  The  third 
file,  tape  3,  provides  background  information  concerning  the  files  that  contain 
conflicts  with  other  files  (or  with  themselves).  Included  in  this  information 
is  the  name  of  the  file,  its  cycle  number,  ID,  and  creation  date. 

All  variables  used  by  REPORT  are  integer  variables.  T and  PRUO  have  the  values: 

T * the  number  of  prus  referenced  in  CONPRU  that  have  been  reported 
on  + 1 

PRUO  = the  number  of  the  pru  in  the  PFC  that  is  currently  the  first 
pru  in  IBUFF 

The  variable  CARRY  assists  in  the  handling  of  long  PFC  entries  (i.e.,  entries 
that  occupy  two  or  more  prus).  Normally  CARRY  = 0.  However,  CARRY  may  have  the 
value  1 when  either  the  previous  pru  reported  on  contained  a portion  of  a long 
entry,  or  the  current  pru  being  examined  contains  a portion  of  a long  entry. 

Since  the  entire  PFC  may  have  to  be  read  a second  time,  REPORT  must  assume 
that  the  PFC  is  the  same  as  when  it  was  read  by  the  RBTCHK  routine.  This 
requires  that  no  new  programs  be  read  into  the  input  queue  and  that  the  pro- 
gram be  permitted  to  run  to  completion  without  interruption.1  Periodically 
REPORT  checks  if  the  PFC  is  the  same.  If  not,  then  the  variable  SIG  becomes 
nonzero.  Whenever  SIG  4 0 then  either  the  PFC  has  been  modified,  there  is  a 
bug  in  the  program,  or  the  system  has  been  so  badly  damaged  that  the  program 
can  no  longer  run  properly.  In  any  case,  the  job  must  then  be  aborted. 

The  operation  of  REPORT  can  be  described  as  follows.  All  the  statements  from 
statement  5 to  the  statement  preceding  statement  300  form  a loop.  Each  time 
that  a pass  is  made  through  the  loop  a different  pru  is  reported  on.  At  the 
beginning  of  a pass  DMPNUM  has  the  value: 


1 RBTCHK  requires  that  no  programs  in  the  output  queue  be  printed. 
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DMPNUM = the  number  of  passes  that  have  previously  been  made  through 
the  loop 

Each  pass  through  the  loop  begins  at  statement  5 or  10,  depending  on  whether 
a new  message  from  tape  2 must  be  read  or  not.  At  statement  10  the  variables 
MSGE , WD , INFO , RB , ORD  contain  the  contents  of  the  tape  2 message  to  be  considered 
next.  It  is  first  checked  if  MSGE = 0.  If  this  is  the  case  then  the  message  is 
the  terminal  message  that  was  written  on  tape  2 by  statement  200  of  the  main 
program.  Whenever  this  terminal  message  is  encountered,  there  is  nothing  left 
to  be  examined  and  REPORT  terminates.  Otherwise,  if  MSGE t 0 then  PRU  is 
assigned  the  value 

PRU  = the  number  of  the  pru  in  the  PFC  to  be  reported  on  next 

and  GETPRU(PRU, I)  is  called.  Next,  the  value  of  DMPNUM  is  increased  by  1 and 
if  DMPNUM  < DLIMIT  a preface  for  a new  dump  and  a copy  of  this  preface  are 
begun  on  tapes  1 and  10  respectively. 

Currently,  RBTCHK  is  not  interested  in  doing  a thorough  analysis  of  the  por- 
tion of  a PFC  entry  that  precedes  the  RB  chain  (if  such  an  analysis  is  even 
possible).  Instead,  it  checks  only  for  those  few  errors,  the  existence  of 
which  leave  in  doubt  either  the  validity  of  or  the  handling  of  the  remaining 
data  of  the  entry.  When  such  an  error  is  detected,  the  analysis  of  the  pru 
is  terminated  and  a tape  2 message  is  issued  whose  message  number  (MSGE)  is 
less  than  100.  REPORT  now  treats  these  errors  as  follows.  At  statement  13  it 
is  checked  if  the  current  tape  2 message  refers  to  the  pru  under  consideration 
If  it  does  and  if  MSGE  <100,  then  either  the  pru  is  the  first  pru  for  a long 
PFC  entry  or 

(1)  the  pru  contains  an  EOR,  EOF,  or  EOI  mark, 

(2)  word  0 or  1 of  the  pru  is  bad, 

(3)  the  number  given  in  word  11  for  the  size  of  the  PFC  entry  or  the  number 
given  in  word  12  which  indicates  where  the  RB  chain  for  the  entry  begins 
is  bad. 

If  (1),(2),  or  (3)  occurs  then  at  statement  110,120,  or  122  CARRY  is  set  to  0, 
a message  is  written  on  tapes  1 and  10  if  DMPNUM < DLIMIT,  and  the  system 
proceeds  to  statement  200.  s 

If  (1),(2),(3)  do  not  occur,  but  the  pru  is  the  first  pru  for  a long  PFC 
entry,  then  at  statement  100  CARRY  is  set  to  1,  and  a comment  is  made  on 
tapes  1 and  10  if  DMPNUM < DLIMIT.  Thereupon,  at  statement  20  the  name,  cycle 
number,  ID,  and  creation  date  of  the  file  are  obtained.  Then  the  system 
arrives  at  statement  22.  Otherwise,  if  the  pru  is  not  the  first  pru  of  a long 
PFC  entry,  then  at  the  statement  immediately  following  statement  13  REPORT 
checks  if  NWDS<I  + 63;  i.e.,  REPORT  checks  if  the  pru  obtained  in  the  second 


1 If  DMPNUM < DLIMIT  then  DMPNUM  is  also  the  number  of  dumps  that  have 
already  been  written  on  tape  1 by  REPORT. 

2 The  section  of  coding  beginning  at  statement  100  and  ending  at  the  state- 
ment immediately  preceding  statement  200  is  where  all  comments  appearing 

in  the  prefaces  of  the  dumps  and  in  the  copies  of  the  prefaces  are  written. 
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reading  of  the  PFC  is  short.  It  should  not  be  short  since  case  (I)  is  not 
involved  here.  However,  if  it  is  short  then  at  statement  300  SIG  becomes 
nonzero  and  the  abort  sequence  of  coding  is  entered.1  Otherwise,  if  it  is 
not  short,  then  the  verification  of  the  data  in  the  PFC  is  finished  for  the 
moment  and  it  is  next  checked  if  the  pru  is  the  beginning  pru  of  a PFC  entry. 

If  it  is  the  beginning  pru  then  CARRY  is  set  to  0 and  at  statement  20  the 
name,  cycle  number,  ID,  and  creation  date  of  the  file  are  obtained.  How- 
ever, if  it  is  not  the  beginning  pru  then  it  must  be  a continuation  pru  for 
a long  entry  (prus  not  being  used  were  ignored  by  RBTCHK).  In  this  case,  at 
statement  30  the  value  of  CARRY  is  checked.  Normally  CARRY  should  be  1.  If 
this  is  the  case  then  we  already  have  the  name,  cycle  number,  ID,  and 
creation  date  for  the  file  and  the  system  proceeds  to  statement  22.  Other- 
wise, if  CARRY  = 0 then  the  variable  ID  is  set  to  0 and  again  the  system 
| proceeds  to  statement  22.  However,  in  this  case  the  resetting  of  the  variable 

! ID  indicates  that  the  background  information  for  the  file  is  either  not  avail- 

able or  has  already  been  given.  It  is  not  clear  to  the  author  whether  this 
case  can  actually  occur.  However,  to  be  on  the  safe  side  (and  to  protect  our- 
selves in  the  eventuality  that  RBTCHK  or  REPORT  is  later  modified)  the  situa- 
tion is  provided  for  by  this  coding. 

; At  statement  22  REPORT  begins  its  search  for  conflicts.  First  it  checks  if 

the  pru  under  consideration  is  referenced  in  the  CONPRU  array.  If  the  pru  is 
not  referenced  then  the  system  is  instructed  to  go  to  statement  23.  Otherwise, 

] if  the  pru  is  referenced  then  there  may  be  RB's  in  the  pru  that  are  in  conflict 

| for  which  no  tape  2 messages  were  issued  by  RBTCHK.  [At  the  time  these  RB's 

\ were  first  encountered,  it  was  not  known  that  they  were  also  being  used  else- 

where.] For  each  such  RB,  an  entry  ORD!  .RB^  OjWDj , . . . ,WD  exists  in  the  CON  array 
where  (ORDijRBj)  is  the  disk  address  of  the  RB  and  SHIFT(PRU, 6)  = WDX . The 
GETCON  routine  is  called  for  examining  and  reporting  on  the  RB's  in  conflict 
for  which  there  are  no  tape  2 messages.  This  routine  is  described  in  detail  in 
the  next  section.  After  GETCON  terminates,  if  SIG  has  been  set  to  a nonzero 
' value  by  GETCON  then  the  system  proceeds  to  statement  310,  where  the  abort 

sequence  of  coding  begins.  Otherwise,  if  SIG  = 0 then  the  value  of  T is  increased 
' by  1 and  the  system  arrives  at  statement  23. 


Statement  23  begins  an  inner  loop.  Each  time  that  a pass  is  made  through  the 
loop  a different  tape  2 message  for  the  pru  under  consideration  is  processed. 
The  operation  of  the  loop  is  quite  simple.  At  statement  23  it  is  first  checked 
if  the  next  tape  2 message  to  be  processed  refers  to  the  pru.  If  not,  then 
the  sytem  exits  from  the  loop  and  proceeds  to  statement  40.  Otherwise,  depend- 
ing on  whether  the  message  refers  to 

(1)  a bad  RBR  ordinal  in  the  RB  chain  for  the  file, 

(2)  a nonexistent  RB, 

(3)  an  RB  in  conflict,  or 

(4)  an  error  concerning  the  length  of  the  RB  chain 


1 If  (1)  occurs  then  at  statement  110  it  is  similarly  checked  if  NWDS^I+63. 
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the  system  is  instructed  to  go  to  statement  160, 162 , 130, or  170.  If  (1),(2),  or 
(4)  occurs  then  CARRY  is  first  set  to  0.  Thereupon,  if  DMPNUM  ^ DLIMIT  then 
messages  are  issued  to  tapes  1 and  10  and  the  system  proceeds  to  statement  200. 
However,  if  DMPNUM > DLIMIT  then  REPORT  is  finished  with  the  pru.  In  this  case, 
not  only  is  the  pass  through  the  inner  loop  complete,  but  also  the  pass  through 

the  outer  loop.  The  system  now  returns  to  statement  5 to  begin  the  next  pass 

through  the  outer  loop. 

If  (3)  occurs  then  at  statement  130  W is  assigned  the  value: 

^4  if  the  conflict  involves  a flawed  RB 
m J 2 if  the  conflict  is  with  the  RB  chain  for  the  PFD 

] 1 if  the  conflict  is  with  the  RB  chain  for  the  PFC 

[0  otherwise 

If  W =3,  which  should  never  occur,  then  at  statement  302  SIG  becomes  nonzero 
and  the  abort  sequence  of  coding  begins.  However,  if  W is  4,  2,  or  1 then  at 
statement  140  or  150  comments  are  first  written  on  tapes  1 and  10  (whenever 
DMPNUM £ DLIMIT)  and  a new  tape  2 message  is  read.  Then  the  system  returns  to 
statement  23  to  begin  the  next  pass  through  the  inner  loop.  Otherwise,  if  W=0 
then  the  NTRYCON  routine  is  called.  NTRYCON  is  the  routine  that  provides  back- 
ground information  to  tape  3.  Its  definition 

SUBROUTINE  NTRYCON (WD , RB , ORD) 

IMPLICIT  INTEGER (A -Z) 

COMMON/TV AR/IBUFF1 (260) , PRU0 , P , DLIMIT 
COMMON/RPRT /DMPNUM, FNAME (4 ) , CYCLE , DATE , ID 

WRITE(3)  WD, DMPNUM, FNAME, CYCLE, DATE, ID 
IF  (DMPNUM. GT. DLIMIT)  RETURN 

WORD=WD. AND. 77B 

WRITE (1,10)  RB, ORD, WORD 

WRITE(10, 10)  RB, ORD, WORD 

10  FORMAT (*0WE  HAVE  A CONFLICT  INVOLVING  RB  * , 04 , * OF  RBR  ORDINAL  *, 

X02,*.  THIS  RB  IS*/*  REFERENCED  IN  WORD  *,02,*.  *) 

RETURN 

END 

requires  no  comment.  After  this  subroutine  ends,  a new  tape  2 message  is  read 
and  the  system  returns  to  statement  23. 

Statement  40  begins  the  section  that  prepares  for  the  next  pass  through  the 
(outer)  loop.  This  section  can  only  be  entered  at  statements  40  and  41.  It  is 
entered  at  statement  40  only  if  there  were  no  errors  other  than  conflicts  in 
the  current  pru.  Otherwise,  the  system  enters  at  statement  41  after  a dump  for 
the  pru  has  been  issued  and  the  system  is  finished  with  the  pru.  At  statement 
40  it  is  first  checl A if  DMPNUM  £ DLIMIT . If  this  is  the  case  then  the  system 
proceeds  to  statement  200,  where  a dump  is  to  be  written.  [Later  the  system 
may  re-enter  this  section  at  statement  41,]  Otherwise,  if  DMPNUM > DLIMIT  then 


Che  value  of  the  variable  PRU  is  increased  by  1 and  GETPRU (PRU , I)  obtains  the 
next  pru  in  the  PFC.  Then  the  system  arrives  at  statement  41. 


When  statement  41  is  reached,  one  of  the  following  situations  exists.  First, 
the  pru  just  examined  and  reported  on  may  have  contained  a full  PFC  entry.  If 

this  is  the  case,  then  CARRY  = 0 and  the  system  is  finished  with  the  pru.  Other- 

wise, if  the  pru  contained  a portion  of  a long  PFC  entry,  then  CARRY  may  have 
the  value  0 or  1 . If  CARRY  = 0 then  the  pru  contained  an  error  that  left  in 
doubt  the  validity  of  or  the  handling  of  the  remainder  of  its  data.  Thus  the 
system  had  no  choice  but  to  assume  that  the  prus  in  the  PFC  immediately  follow- 
ing this  pru  contained  information  not  necessarily  for  this  PFC  entry,  but  for 
a different  entry.  However,  if  CARRY  = 1 then  the  question  remaining  to  be  con- 
sidered is  whether  the  next  pru  to  be  reported  on  involves  the  current  PFC 

entry  or  a different  PFC  entry.  This  question  must  now  be  answered. 

At  statement  41  it  is  assumed  that  the  pru  under  consideration  is  the  first  pru 
following  the  pru  just  reported  on,  and  that  the  next  tape  2 message  to  be  pro- 
cessed has  already  been  read.  First  it  is  checked  if  CARRY  = 0.  If  this  is  the 
case,  then  the  current  pass  through  the  loop  is  complete  and  the  system  returns 
to  statement  10.  Otherwise,  if  CARRY  = 1 and  the  next  tape  2 message  is  the  ter- 
minal message,  then  REPORT  ends.  However,  if  CARRY  = 1 and  ,_he  message  is  not 
the  terminal  message,  then  the  system  arrives  at  statement  42. 

At  statement  42  an  inner  loop  is  entered.  Each  time  that  a pass  is  made  through 
this  loop  a different  pru  following  the  pru  just  reported  on  is  checked.  The 
prus  are  taken  in  sequence.  At  statement  42  it  is  first  checked  if  the  current 
pru  under  consideration  is  to  be  examined  and  reported  on.  If  so,  then  the 
system  exits  from  the  inner  loop,  returning  to  statement  10  to  begin  the  next 
pass  through  the  outer  loop.  Otherwise,  if  the  current  pru  is  not  to  be  report- 
ed on,  then  it  is  next  checked  if  the  pru  is  short.  If  it  is  short,  then  CARRY 
is  set  to  0 and  the  system  proceeds  to  statement  10.  Otherwise,  at  the  state- 
ment following  statement  43  it  is  checked  if  the  pru  is  the  beginning  pru  for 
a new  PFC  entry.  If  it  is  the  beginning  pru,  then  again  CARRY  is  set  to  0 and 
the  system  returns  to  statement  10.  Otherwise,  if  it  is  not  a beginning  pru, 
then  at  statement  44  the  value  of  the  variable  PRU  is  increased  by  1 and 
GET PRU (PRU , I)  obtains  the  next  pru  in  the  PFC.  Thereupon,  the  system  returns 
to  statement  42  to  begin  the  next  pass  through  the  inner  loop. 
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Writing  Dumps 

Statement  200  begins  the  section  for  writing  dumps.  When  this  section  is 
entered,  it  is  assumed  that  all  comments  and/or  complaints  regarding  the  pru 
being  reported  on  have  been  issued.  The  task  now  at  hand  is  to  provide  a 
dump  that  contains  this  pru  and  its  neighboring  prus.  It  is  required  that  the 
P prus  immediately  preceding  and  the  Q prus  immediately  following  this  pru  be 
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printed,  if  it  is  possible  to  do  so.  As  noted  earlier,  P and  Q may  be  arbi- 
trarily set  by  the  user,  the  only  restriction  being  that  PS  2 and  Q>2.  The 
default  values  given  at  the  beginning  of  REPORT  are  P=2  and  Q = 2. 


At  statement  200  it  is  first  checked  if  the  pru  under  consideration  is  the  ■ 

final  pru  of  the  PFC.  If  it  is  the  final  pru  then  the  system  proceeds  to 
statement  202.  Otherwise,  if  it  is  not  the  final  pru,  then  the  values  of  PRU  ; 

and  P are  increased  by  1,  GETPRU(PRU, I)  obtains  the  next  pru  in  the  PFC,  and  j 

the  system  arrives  at  statement  202.  Now  let  us  stop  and  reflect  on  what  has  ' 

just  been  done.  If  the  pru  is  not  the  final  pru,  then  it  must  be  noted  that  ! 

the  value  of  the  parameter  P has  been  modified.  If  the  initial  value  of  P was 
p,  then  IBUFF1  may  now  hold  the  pru  being  reported  on,  as  well  as  p previous 
prus.  Thus  IBUFF1  may  contain  a maximum  of  p+1  prus.  Also,  the  variables  PRU 
and  I now  refer  to  the  pru  immediately  following  the  pru  being  reported  on. 

After  finishing  with  these  prus,  the  variable  P will  have  to  be  reset  to  its 
initial  value  p.  The  reader  may  breathe  a sigh  of  relief,  however.  For  it  is 
only  here  that  a (p+l)-st  pru  may  be  inserted  into  IBUFF1.  In  this  case, 
because  of  the  increase  in  the  value  of  P,  no  information  is  lost  in  the 
insertion  process.  The  queue  IBUFFl  is  momentarily  treated  as  a stack. 

Now  to  return  from  our  detour,  at  statement  202  a line  which  separates  the 
preface  from  the  dump  is  written  on  tape  1,  IRB  is  defined  to  be  the  number  of 
the  RB  in  the  PFC  that  we  currently  are  in,  and  K is  assigned  the  value  0 or  1 
depending  on  whether  or  not  disk  addresses  are  to  be  given  for  the  initial 
prus  in  the  dump.1  Then  P0  and  J are  assigned  the  values 

P0  = 0 

J = I - 64  * P 

and  it  is  checked  if  J>1.  If  this  is  the  case,  then  IBUFFl  is  not  needed  and 
the  system  proceeds  to  statement  220.  Otherwise,  if  J<1,  then  it  is  next 
checked  if  the  current  pru  is  one  of  the  first  P-  1 prus  of  the  PFC.  If  not, 
then  the  system  proceeds  to  statement  210.  Otherwise,  if  it  is  one  of  the 
beginning  P-1  prus,  then  only  the  prus  that  have  been  read  can  be  printed.  In 
this  case,  for  convenience,  only  the  prus  in  IBUFF  are  printed.  P0  is  assigned 
the  value 

P0  = 1+  (I  - l)/64 

and  the  system  proceeds  to  statement  221.  This  case  can  never  occur  if  P is 
less  than  or  equal  to  the  number  of  prus  containing  the  RB  chain  for  the  PFC. 

However,  if  the  user  redefines  P to  be  greater  than  the  number  of  prus  con- 
taining the  RB  chain  for  the  PFC,  then  the  policy  of  printing  only  data  in  IBUFF 
may  not  be  satisfactory.  For  then,  if  an  EOR  or  EOF  mark  is  being  reported  on, 
information  that  should  be  printed  will  not  be  printed. 

Statement  210  begins  the  section  for  printing  the  prus  in  IBUFFl.  First  IPRU 
and  P0  are  assigned  the  values: 

1 PFCMRK  and  PFCRBS  are  defined  by  RBSET.  For  further  information  see  pages  10 
and  12 . 
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IPRU  - the  number  of  the  pru  that  precedes  the  first  pru  to  be  printed 
PO = the  number  of  prus  in  IBUFF1  to  be  printed 

Then  a DO  loop  is  entered.  Each  time  that  a pass  is  made  through  the  loop  a 

different  pru  in  IBUFF1  is  written  on  tape  1.  The  prus  are  taken  in  sequence. 

At  the  beginning  of  a pass  J has  the  value: 

J = the  index  of  the  word  in  IBUFF1  that  begins  the  entry  of  the  pru  to 
be  printed  next 

First  N is  assigned  to  be  the  number  of  words  in  the  pru  and  ICODE  is  set 
according  to  the  format  prescribed  on  page  17.  Then  the  pru  is  written  on  tape 
1 by  the  PRTPRU  routine  and  the  value  of  J is  decreased  by  65.  This  completes 

the  pass  through  the  loop.  After  the  loop  terminates,  J is  set  to  1 and  the 

system  arrives  at  statement  220. 

Statement  220  begins  the  section  for  writing  the  prus  in  IBUFF.  After  state- 
ment 221  has  executed,  IPRU  and  PO  have  the  values: 

IPRU  = the  number  of  the  pru  that  precedes  the  first  pru  to  be  printed 
PO  = the  number  of  prus  in  IBUFF  (up  to  and  including  the  current  pru) 
that  are  to  be  printed 

Then  a DO  loop  is  entered  that  writes  the  PO  prus  on  tape  1.  After  this  writing 
is  finished  then  the  value  of  P is  decreased  by  1,  and  the  routine  terminates 
if  the  pru  being  reported  on  is  the  final  pru  of  the  PFC.  Otherwise,  if  the  pru 

is  not  the  final  pru,  then  all  the  prus  up  to  and  including  the  first  pru 

following  the  pru  being  reported  on  have  been  written  and  P has  been  reset  to 
its  initial  value.  Now  the  queue  IBUFF1  has  again  its  original  size,  and  the 
remaining  Q - 1 prus  that  follow  the  pru  being  reported  on  must  be  printed,  if 
it  is  possible  to  do  so.  At  statement  230  the  next  tape  2 message  to  be  pro- 
cessed is  obtained,  and  then  the  system  proceeds  to  statement  240.  (Currently, 
the  READ  statement  following  statement  230  can  be  encountered  only  once.) 

The  loop  beginning  at  statement  240  is  similar  to  the  loop  beginning  at  state- 

ment 42.  Both  loops  prepare  for  the  next  pass  through  the  outer  loop.  However, 
in  the  loop  beginning  at  statement  240  a dump  is  still  being  written.  At  the 
beginning  of  a pass  through  this  loop,  it  is  first  checked  if  the  current  pru 
is  to  be  examined  and  reported  on.  (This  pru  has  already  been  printed.)  If  so, 
then  the  system  exits  from  the  DO  loop,  preceding  to  statement  250.  Otherwise, 
if  the  pru  is  not  to  be  reported  on,  then  it  is  next  checked  if  the  pru  is 

short.  If  it  is  short,  then  CARRY  is  set  to  0 and  the  system  proceeds  to  state- 

ment 242.  Otherwise,  if  it  is  not  short,  then  at  statement  241  it  is  first 
checked  if  CARRY  = 0.  If  this  is  the  case,  then  the  system  proceeds  to  statement 
242.  Otherwise,  if  CARRY  t 0 then  it  is  next  checked  if  the  pru  is  the  beginning 
pru  for  a new  PFC  entry.  If  not,  then  the  system  proceeds  to  statement  242. 

Otherwise,  if  it  is  the  beginning  pru,  then  CARRY  is  set  to  0 and  the  system 

arrives  at  statement  242.  At  statement  242  the  NXTPRU  routine  is  called. 
NXTPRU(PRU, I , IND)  obtains  the  next  pru  in  the  PFC  and  writes  it  on  tape  1.  Its 
definition 
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SUBROUTINE  NXTPRU(PRU, I, IND) 

IMPLICIT  INTEGER(A-Z) 

COMMON/IFET/IBUFF (2049 ) ,RTCODE,NWDS , LEVEL, FILE 

COMMON/CHNVAR/PFDMRK, PFDRBS , PFDCHN(64) , PFCMRK, PFCRBS , PFCCHN(320) , 
X MARK(3) 


PRU=PRU+1 

CALL  GETPRU (PRU, I) 

IRB=l+PRU/56 

K=PFCMRK 

IF  (IRB.GT. PFCRBS)  K=1 

C ALL  PRTPRU ( I , PRU , IBUFF ( 1 ) , NWDS , RTCODE , K , IND ) 

RETURN 

END 

requires  no  comment.  After  NXTPRU  finishes,  it  is  checked  if  the  new  pru  is  the 
final  pru  of  the  PFC.  If  it  is  the  final  pru,  then  REPORT  terminates.  Otherwise, 
if  it  is  not  the  final  pru,  then  the  system  arrives  at  statement  243,  which 
terminates  the  pass  through  the  DO  loop. 

After  leaving  the  DO  loop,  the  system  arrives  at  either  statement  250  or  the 
statement  immediately  following  statement  243.  If  it  arrives  at  the  statement 
immediately  following  statement  243,  then  the  Q prus  following  the  pru  being 
reported  on  have  been  printed  and  the  system  proceeds  to  statement  41,  to  con- 
tinue the  preparation  for  the  next  pass  through  the  outer  loop.  Otherwise,  if 
the  system  arrives  at  statement  250,  then  not  all  the  Q prus  following  the  pru 
being  reported  on  can  be  included  in  the  dump.  The  prus  not  included,  however, 
can  appear  in  the  next  dump.  A comment  to  this  effect  is  made  on  tape  1.  This 
comment  terminates  the  dump  and  the  system  proceeds  to  statement  10  to  begin  the 
next  pass  through  the  outer  loop. 


The  Abort  Section 


Statement  310  begins  the  abort  sequence  of  coding.  Whenever  SIG  becomes  nonzero, 
this  section  is  entered.  The  action  then  taken  is  quite  simple.  First,  messages 
are  written  on  the  output  file  and  on  tapes  1 and  10.  Next,  a list  of  the  EOR, 
EOF,  and  EOI  marks  found  by  RBTCHK  is  provided  by  the  loop  beginning  at  state- 
ment 330.  Then,  at  statement  340,  the  current  values  of  SIG,  I,  and  PRU0  are 
printed  and  the  routine  terminates.  The  list  of  EOR,  EOF,  and  EOI  marks  may  be 
of  aid  in  determining  if  there  is  an  error  in  the  count  of  the  prus.  However, 
if  there  is  no  such  error,  then  it  is  not  clear  what  information  should  be  given. 
The  point  to  keep  in  mind  is  that  REPORT  does  not  continually  monitor  its  prog- 
ress. It  only  checks  periodically  for  those  few  situations  that  it  knows  are 
absolutely  fatal.  Thus  if  an  error  does  occur,  then  a considerable  amount  of  time 
can  elapse  before  the  error  is  detected. 
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SUBROUTINE  GETCON (10, PRUNUM, SIG) 
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Let  PRUNUM  be  the  number  of  a pru  in  the  PFC  that  is  currently  in  LBUFF.  Also 
let  10  be  the  index  of  the  word  in  IBUPF  that  begins  this  pru.  Then  the  GETCON 
routine  examines  this  pru  for  all  the  RB's  in  conflict  for  which  there  are  no 
tape  2 messages.  (At  the  time  these  RB's  were  first  encountered,  it  was  not 
known  that  they  were  being  used  elsewhere.)  For  each  such  RB,  a conflict  entry 
ORDjRB.njWDj , . . . ,WDn  exists  in  the  CON  array  where  (0RD,RB)  is  the  disk  address 
of  the  RB  and  SHIFT (PRUNUM, 6)  =WD,.  Whenever  GETCON  finds  such  an  RB,  the  RB 
is  reported  on  and  WDj  is  modified  to  contain  the  number  of  the  word  in  the  pru 
that  first  references  this  disk  RB.  The  variable  SIG  serves  the  same  purpose  in. 
this  routine  that  it  serves  in  REPORT. 

The  coding  is  quite  simple.  Statement  10  begins  the  outermost  loop  of  the  rou- 
tine. Each  time  that  a pass  is  made  through  the  loop  a different  conflict  entry 
in  CON  is  examined.  The  entries  are  taken  in  sequence.  At  the  beginning  of  a 
pass  J has  the  value: 

J = the  index  of  the  word  in  CON  that  follows  the  entry  just  examined 

It  is  first  checked  if  CON(J)  begins  a new  entry.  If  not,  then  GETCON  termi- 
nates. Otherwise,  if  it  does  begin  a new  entry,  then  it  is  next  checked  if 
SHIFT(PRUNUM,6)  = C0N(J  + 3) . If  this  is  not  the  case,  then  at  statement  II  J is 
updated  and  the  sytem  returns  to  statement  10,  to  begin  the  next  pass  through 
the  outermost  loop.  Otherwise,  at  statement  20  I,WD,MAX  are  assigned  the 
values : 

MAX = the  number  of  word  pairs  of  the  RB  chain  in  pru  PRUNUM 

I = the  index  of  the  word  in  IBUFF  where  the  RB  chain  begins 

WD = the  number  of  the  word  of  the  pru  where  the  RB  chain  begins 

Then  the  system  proceeds  to  statement  100. 

The  DO  loop  beginning  at  statement  100  examines  the  word  pairs  of  the  RB  chain 
that  are  in  the  pru.  One  of  these  word  pairs  must  contain  the  RB  in  conflict 
that  is  referenced  by  the  current  conflict  entry.  However,  if  no  word  pair  is 
found  that  contains  the  RB,  then  at  statement  132  SIG  is  set  to  1 and  the  rou- 
tine terminates.  The  structure  of  the  DO  loop  requires  little  comment,  being  the 
same  as  the  structure  of  the  corresponding  loops  in  RBSET  and  RBTCHK.  First  the 
link  of  the  word  pair,  the  RBR  ordinal  ORD  of  the  RB's  referenced  by  the  word 
pair,  and  the  index  IND  of  the  first  byte  that  references  an  RB  are  obtained. 

If  the  ordinal  ORD  is  not  the  same  as  the  ordinal  CON(J)  of  the  current  conflict 
entry,  then  the  system  is  finished  with  the  word  pair.  Otherwise,  if  0RD=C0N(J) 
then  in  the  innermost  loop  beginning  at  statment  121  the  RB  bytes  are  checked. 

If  no  byte  is  found  that  contains  the  disk  RB  number  C0N(J+1)  of  the  current 
conflict  entry,  then  again  the  system  is  finished  with  the  word  pair.  Otherwise, 
if  a byte  is  found  that  contains  the  disk  RB  number  C0N(J  + 1),  then  C0N(J  + 3) 
is  modified  to  contain  the  number  of  the  word  in  the  pru  that  contains  this 
byte.  Also  NTRYCON 1 is  called  to  report  on  the  conflict,  and  then  the  system 


1 See  page  33. 
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returns  to  statement  11  to  finish  this  pass  through  the  outermost  loop. 

N-QE-g  The  variables  I,WD,MAX  should  not  have  been  defined  in  the  outermost  loop. 
Instead,  for  efficiency,  the  variables  should  have  been  defined  at  the  beginning 
of  the  routine. 
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SUBROUTINE  CONTBL 


After  REPORT  has  ended,  the  PFC  is  closed  by  PFRETRN,  an  entry  consisting 
entirely  of  zeros  is  written  on  tape  3,  and  tape  3 is  rewound.  Then  the 
CONTBL  routine  is  called.  This  routine  and  its  subroutine  PRTDATA  print  a 
table  which  cross  references  the  conflicts  not  involving  flawed  RB's  or  RB's 
in  the  RB  chains  for  the  PFD  and  PFC.  After  CONTBL  ends,  tapes  10  and  1 are 
printed  and  the  main  program  terminates. 

The  CON  array  contains  the  cross  tabulation  in  abbreviated  form.  Statement 
10  begins  the  major  loop  of  the  routine.  Each  time  that  a pass  is  made 
through  the  loop  a different  conflict  entry  0RD,RB,n,WDj , . . . ,WDn  is  reported 
on.  The  entries  are  taken  in  sequence.  After  all  the  entries  have  been  pro- 
cessed, then  the  routine  ends. 

The  PRTDATA  routine  is  called  by  CONTBL  to  print  background  information  on 
each  of  the  words  WDj  in  the  conflict  entries.  Included  in  this  information 
is  the  name  of  the  file  that  contains  the  word,  the  cycle  number,  ID,  and 
creation  date  of  the  file,  and  the  number  of  the  dump  which  contains  the 
word.  When  PRTDATA (WD t ) is  called,  tape  3 is  searched  for  an  entry  written 
by  the  NTRYCON  routine  that  references  word  WDj . If  an  entry  is  found  then 
the  information  provided  by  the  entry  is  printed.  If  the  ID  of  the  entry  is 
0,  then  this  indicates  that  only  the  number  of  the  dump  that  contains  this 
word  is  available.  1 


The  coding  of  PRTDATA  is  fairly  straightforward,  requiring  only  the  use  of 
the  IBLANK  function2  and  the  GETDATE  routine.  GETDATE  has  the  definition: 

SUBROUTINE  GETDATE ( LP , N , M , D ) 

INTEGER  D 

C THIS  ROUTINE  COMPUTES  THE  MONTH  (M)  AND  THE  DAY  (D)  OF  THE  MONTH 

C FOR  THE  N-TH  DAY  OF  THE  YEAR.  (IF  THE  YEAR  IS  A LEAP  YEAR  THEN  N 

C CAN  HAVE  ANY  OF  THE  VALUES  1,2, . . . ,366. ) 

C LP=1  IF  THE  YEAR  IS  A LEAP  YEAR.  OTHERWISE  LP=0. 


IF  (D.LE. (59+LP) ) GO  TO  11 
M=3 

D=D-59-LP 

IF  (D.LE. 153)  GO  TO  10 
M=8 

D*>D-153 

K=(D-1)/61 

M=M+2*K 

D»D-61*K 


1 See  page  32. 

2 See  page  18. 


11  IF  (D.LE.31)  RETURN 
M=f*fl 
D=D-31 
RETURN 
END 

This  coding  may  appear  a bit  enigmatical.  However,  if  one  realizes  that  the 
last  10  months  of  the  year  divide  evenly  into  2 groups,  each  of  which  has  3 
months  containing  31,30,31,30,31  days  respectively,  then  the  coding  should 
begin  to  come  into  focus. 
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0VEPLAY(RBTC,0,0l 

PROGRAM  P 3TC (SYSTEM  = 0 , OUTPUT  * T APE i»TAPE2,TAPE3»TAPE10) 

IMPLICIT  integep<a-zi 

C0mM0N/IFFT/I3UFE(2Q49)  , RTCODE , NWDS , LEVEL , E ILE 
COMMON  PpRTBL(3232,8)  , A RE  A ( 3 ) , E N T R Y ( 3 ) , NUM  T BL 
CCMM0N/9BVA3/MC0UNT,W0,I,IEER 

COMMOM/OMh'VAP/PPPMPK,  PFDR9S,PF0CHN(fe4)  , PEC  MP.K  , PFCR  3S  , Pr  C 0 HN  ( 3 20  ) , 

x Mfto<<3) 

INTEGER  L INF ( 14 ) 


RP  CHAIN/R3TC  ANALYZER  VERSION  1.0 

DATE  --  OEC  1975 
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PEC  SHOULD  TAKE 


THE  USE?  MAY  ALSO  CHANGE  (AT  THE  BEGINNING  OF  THE  REPORT  ROUTINE) 
THE  VALUES  OF  THE  VARIABLES  P.Q.OLIMIT.  FOR  FURTHER  DETAILS  SEE 
THIS  ROUTINE. 

********* 

THE  GETFILE  ROUTINE  CREATES  THE  R NT  ENTRY  FOR  THE  FILE  RF3UESTED, 
AND  THE  TEST  ROUTINE  CREATES  THE  FET  THE  FIRST  TIME  THAT  IT  IS 
CALLED.  THE  PFRETRN  ROUTINE  ELIMINATES  THE  FNT  ANO  FET  ENTRIES  FOR 
THIS  FILE.  THE  FILE  IS  REFERENCED  3Y  SETTING  THE  VARIA3LF  FILE. 

F IL F=  0 IF  THE  P'D  IS  THE  FILE  TO  BE  READ 
F I L f = 1 IF  THE  R 3 TC  IS  THE  FILE  TO  BE  READ 
EACH  TIME  TEST  IS  CALLED,  TEST  READS  A PORTION  OF  THE  r I L E » STCRFS 
IT  IN  THE  IBIJFF  BLOCK,  ANO  SETS  THE  VARIABLES  RTCODE  , NrfDS , L F V EL. 
?TOOnE=l  IF  AN  FOR  MARK  IS  PEAO 

3TC('DE=2  IF  AN  F 3 = MARK  IS  °CAO 

R T C 0 C F = 3 IF  AN  =01  hatk  IS  REAO 

cTHFRwrcr  ?tcodf  is  set  to  o.  also 

NWDS  = the  NUMBER  of  WCROS  READ  INTO  IBUFF 
L 1 V c l = T H c LF  V r L NUMBER  OF  THE  RECORD 
A MAXlM'J>-  0=  20  4ft  WO3  DS  IS  READ.  IE  AN  EOP,  EOF,  OR  EOI  HARK  IS 
F NCOIJNTE  RF  D , THEN  cFA)InG  TERMINATES.  IN  THIS  CASE  NWOS  IS  THE 
N(JH  = r R 0=  WO?DS  "EAO  THAT  EFECE  Df  THE  M A 3K . 


f"J  UDL-3B 
MC  OUNT  = 4 0 03 
PFDSIZF=1 
F=CSIZ=-S 

I Z E 3 = 0 
NC  OUNT -“COUNT 
MARK ( 1 ) = 0517223 
MA  RK (2)  = CGt ZGS3 
MA  RK { 3 > = 051 7 1 1 5 

point  10 

FO^-AT  (*lCO«MEN'rS  ...*/) 

F r I NT  11 

= 03-*AT (* OUNLFSS  IT  IS  CLFAP  TO  T hf  CONTRARY  , ANY  NUMBER  A33EARING 
XIN  THE  OUTPUT*) 

POINT  12 

FORMAT(*  CA*'  BE  ASSUMED  TO  PE  IN  OCTAL.*) 

CALL  SFTUP(ERRCR) 

IF  (cR?C3.NE.O)  ST0° 
r I L F=  3 

CALL  G=TFILF 
W3=40000GB 

call  R3SFT(PR0SIZE,PrDMRK,PF0PBS,PFrCHN(l) ) 

CALL  ° = c L T°N 
1=  (WO.EO.OI  GO  TO  300 


CI LF  = 1 


A-2 


CALL  GETFILE 
WO=2Q0OOOS 

CALL  RRStT (PFCSIZE,PrCMRK»PFCRBS,PFCCHN(l) ) 

IF  (WD.NE.Q)  GO  TO  103 
CALL  PFRFTRN 
GO  TQ  300 

100  IERR  = PFOf'f?K»PECMRK 

WO=WO. AND. 1777778 
cull  rdtchk 
call  PFPETRN 

MCOUNT=NCOUNT-MCOUNT 

CALL  REMAPK ( 1 OH**********  ) 

IF  ( I ECR . EQ. 01  GO  TO  111 

CALL  0ISFLA(A2HN UMBER  OF  ERRORS  THAT  ARE  NOT  CONFLICTS  = ,IERR) 
PRINT  11  0 t IE  PR 

110  FORMAT  (*  0N'.J“BER  OF  ERRORS  DETECTED  THAT  ARE  NOT  CONFLICTS  =*,I4, 
X*  (DECIMAL).*) 

GO  TO  200 

111  CALL  RFMAD< ( 48HN0  FRROPS  (OTHER  THAN  POSSI 3LY  CONFLICTS)  ROUND.) 
PRINT  112 

112  FORMAT(*ONO  ERRORS  (OTHER  THAN  P0SSI3LY  CONFLICTS)  FOUNO.*) 

200  WRITE( 2*201)  I ZF RO , I ZER 0 , 1 ZERO , I ZER 0 , IZ E RO 

201  FORMAT (5020) 

REWIND  2 

CALL  INFOCON (MCOUNT) 

CALL  REMARK! 1 OH* *********  1 

FILF^l 

CALL  GETFILE 
CALL  REPORT 

call  pfretrm 

WRITE (3)  IZEPO.IZEPO, I ZERO, I ZERO, I ZERO, I ZERO , I ZERO, I ZER 3, I ZERO 
REWIND  3 
CALL  CON T BL 

300  REWIND  10 

301  RE  AD ( 1 0 * 30  2)  LINF 
30?  FORMAT (13A10  *A6) 

IF  (EOF(iO).NE.O)  GO  TO  310 
PRINT  302, LINE 
GO  TO  301 

RFWINO  1 

Pf AD (l, 30 2)  LIME 
IF  (EOF(l).NE.O)  S tor 
PRINT  302, LINE 
GO  TO  311 


SUqPOUTIME  SETUP(ERR) 

IMPLICIT  INTECEPf A- Z » 

COMMON  RHRT9L (3  23  2, 8>  ,AREA(3),ENTRY<3>  , NUM  T BL 
INTEGER  TA3LE  (258561  , FLAW  ( 3 » 

EQUIVALENCE  (R9PTBL  (1,1), TABLE  (D) 

COMMON/Dr:FORn/MORO  (AC  ) , N 0 R C (40  ) 

INTEGER  LEST  (64  ) , LA2EL  ( 128) 

LEST  - The  LIST  OE  ESI  DROINALS  FOR  THE  PERMANENT  FILE  OEVIC-S 
THAT  ARE  T U F N E 3 ON 

NUM  = TH)  t:jM3EP  OE  PERMANENT  PILE  DEVICES  THAT  APE  TURNS  3 ON 

THE  LAPEL  ARRAY  CONTAINS  THE  LABEL  FOR  THE  PERMANENT  FILE  DEVICE, 
THE  r 3 3ITS  IN  THE  LABEL  HAVE  BEEN  REARRANGED  SO  THAT  THEY  A5PEA- 
CONSECUT I VFL  Y IN  HPROS  11-64  OF  THE  ARRAY.  IT  IS  ASSUMED  THAT 
THERE  IS  ONLY  ONE  R 3 5 ORDINAL  for  EACH  PERMANENT  FILE  DEVICE. 

AFEA(1)-77777760000QC300000CS 
APEA(2) =000000177777740000006 
AP‘rA(3)=()OOOODQOOQOQO  37777779 
FLAN  (11=200000000000000000009 
FLAW (21=000003040000030000009 
FLAN(3)=C000000000000100nOOC3 

00  10  11=1,25856 
T A 9LF  ( 1 1 ) =0 
DO  11  11=1,40 
MORO(II) =MOPQ (II) =0 
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1=  1 i. 

°8  = 1 

W=  LABEL! I ) 

00  .31  JJ=1,B0 
W= SHIFT t W , 1 ) 

IF  (JW.AND.t ) .NE. 0)  R 3R  T P L ( F 3 , N)  = FL  A W < M ) . 0 R . RBRT  BL  ( RB , 'I > 
IF  (PR.EO.HAX)  GO  TO  32 
RB=°B+1 
1=1  + 1 
GO  TO  30 
CONTINUE 
RETURN 

ERROR  PROCESSOR 


PRINT  101 

FORMAT(5HQ****,*THE  JOB  WAS  ABORTED  BEFORE  PROCESSING  EVEN  BEGAN. 
XTHE  REASON  FOR  THIS  ABORT  WAS  ...*) 

PRINT  102 

FORMAT ( * 0 N 9 PERMANENT  FILE  DEVICES  ARE  tISTEO  AS  BEING  ON.*) 

ERR  = 1 
RETURN 
POINT  101 
PRINT  104 

PORMAT ( * 0 MORE  THAN  24  PEPMAE  ENT  FILE  DEVICES  ARE  LISTED  AS  BEING  0 
XN.  ONLY  24  APE  PERMITTED*/*  BY  THIS  VERSION  OF  THE  ANA.YZER.*) 

ERR  = 1 
RETURN 

PRINT  101 

PRINT  lil.ERP.EST 

FORMAT (* OERROR  *,I2,»  (DFCIMAL)  OCCURRED  WHEN  THE  PF  ROUTINE  TAT  w 
X A S READING  THE  DEVICE*/*  HAVING  EST  ORDINAL  *,02,*.*) 

RETURN 

PRINT  101 

P - I N T 113, K, CST 

FDRMAT(*OOME  OF  THE  PERMANENT  FILE  PACKS  IS  NOT  MOUNTED  O')  THE  CJR 
1RECT  EST  ORDINAL.  T Hr  CORRECT  ORDINAL*/*  IS  *,02,*.  THE  INDIRECT 
20P0INAL  IS  *,02,*.*) 

F R R = 1 
RF  T!JP  N 


PRINT  101 
PRINT  121, 030 

FORMAT ( * 0 PBR  ORDINAL  *,I2,»  (DECIMAL)  IS  BEING  USED.  THE  .ARSEST  R 
1BR  ORDINAL  THAT  IS  PERMITTED*/*  BY  THIS  VERSION  OF  THE  ANALYZER  IS 
2 39.*) 

FRR  = 1 
RETURN 

PRINT  101 
PRINT  131, EST 

FORMAT(*QNO  USABLE  RRS  ARE  CN  THE  PERMANENT  FILE  OEV’CE  HAVING  EST 
X ORDINAL  *,02,*.*) 

ERR  = 1 
RETURN 
PRINT  101 


133 
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PRINT  133, EET 

FOR MflT ( * 0 mq=F  THAN  3232  (OFCIMAL)  P 35  ARE  GIVEN  FOR  THE  3iRHANENT 
1 f I L?  flFVICE  HAVING  EST  ORDINAL  *,02,*.*/*  THIS  IS  NOT  3ER'UTTEO  GY 
? THIS  VERSION  OF  THE  ANALYZER.*) 

E - - = 1 
RE  TiJ°N 
rN  J 


I 


.1 

I 
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SUBROUTINE  R8SETICHSIZE ,NUM, DSKRBS, CHAIN) 

IMPLICIT  TNTEGER(A-Z) 

COMMON/IFET/I BUFF (2049)  , RTCOOE , NHOS .LEVEL , FILE 
COMMON  RBRT8L (3232*81  , ARE A ( 3 ) , ENTRY ( 3 > « NUMT BL 
COMMON /RBVAR/MCOUNT*HO,I*IERR 
COMMON/RBRORO/MORO  (40  I , NORO (4  0 ) 

COMMON/CHNVAR/PFOMRK,PFORBS,PFDCHN(64),PFCHRK»PFCRBS»P::'CSHN|320  ) , 
X MARK (3 ) 

INTEGER  CHAIN(l) 

IN  THIS  ROUTINE  IBUFF  CONTAINS  THE  BEGINNING  PRUS  OF  THE  OR 

PFC.  THE  RB  CHAIN  FOP  THE  PFO  OR  PFC  IS  STOREO  IN  THESE  PRJ$. 

This  routine  examines  the  re  chain,  if  any  EOR  OR  EOF  marks  are 

FOUND  TO  PRECEDE  THE  R9  CHAIN,  THE  ERROR  IS  REPORTED  AND  ANA.YSIS 
IS  CONTINUED.  IF  ANY  other  ERRORS  APE  DETECTED,  THEN  ANALYSIS  IS 
TERMINATFO  ANO  A DUMP  OF  THE  RB  CHAIN  IS  GIVEN.  IN  THIS  CASE  HD 
IS  SET  TO  0,  WHICH  INDICATES  TO  THE  MAIN  PROGRAM  TO  TERMINATE 
THE  JOB.  IF  NO  OTHER  ERRORS  ARE  DETECTED,  THE  ROUTINE  STORES  THE 
RB  CHAIN  FOR  THE  PFO  IN  THE  ARRAY  PFOCHN  AND  THE  RB  CHAIN  FOR  THE 
PFC  IN  THE  ARRAY  PFCCHN. 


PFOMRK  = 


PFCMP.K  = 


THE  NUMBER  OF  EOR  AND/OP  EOF  MARKS  PRECEDING  THE  RB 
CHAIN  FOR  THE  PFD 

THE  NUMBER  OF  EOR  AND/OR  EOF  MARKS  PRECEDING  THE  RB 
CHAIN  FOR  THE  PFC 


pf ORBS  = THE  NUMBER  OF  OISK  RBS  IN  THE  RB  CHAIN  FOR  THE  PrD 

PFC 3BS  = THE  NUMBER  OF  DISK  RBS  IN  THE  RB  CHAIN  FOR  THE  ,trC 

UNLESS  AM  ERROR  HAS  OCCURRED , PFDMRK  AND  PFOMRK  SHOULD  BOTH  HAVE 

THE  VALUE  0. 

CHSIZE  = THE  NUMBER  OF  PRUS  IN  THE  PFD  OR  PFC  THAT  ARE  RE3UIRED 
FOR  STORING  THE  RB  CHAIN  FOR  THE  PFD  OR  PFC 

WO  = MU  + THE  NUMBER  OF  WORDS  IN  THE  PFD  OR  PFC  THAT  HAVE  BEEN 
PPOCFSSFO 

I = THE  INDEX  OF  THE  WORD  IN  I BUFF  TO  BE  EXAMINED  NEXT 

HERE  IT  IS  ASSUMEO  THAT  NEITHER  THE  PFC  NOR  THE  PFC  HAS  AM  RB 
CHAIN  THAT  CONTAINS  MORE  THAN  2**16  WORDS.  MU=400000B  IF  THE  PFO 
IS  BEING  READ  AND  MU=200000B  IF  THE  PFC  IS  BEING  RE AO. 

RRRTBl  ANO  NUMTBL  ARE  DEFINED  IN  THE  ROUTINE  RBTCHK . 


1=1 
NUM=  0 
DSKP3S=0 
CALL  TEST 

IE  (NWOS.GT. 0)  GO  TO  20 
IF  IRTC00E.EQ.3)  GO  TO  250 
WO  = W0*64 
NU  M=NUM* 1 

IF  (NUM.EO.50)  GO  TO  252 
CALL  TEST 
GO  TO  10 


20 


waararani'',  ■sir 
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IF  (NUM.EQ.0I  GO  TO  100 
K=SHIFT(W0,-17>  +3 
PRINT  21,K,NUH,K 

21  FORMAT (*0THE  RB  CHAIN  FOR  THE  PF»,Ri,*  IS  PRECEDED  BY  *,D2,*  EOR  A 
1 NO /OR  EOF  MARKS.  THE*/*  ERROR  MUST  BE  CORRECTED.  ANALYSIS  HAS  CONT 
2 INUED  AFTFR  THIS  ERROR  HAS*/*  DETECTED.  HOWEVER,  BECAUSE  OF  THE  ER 
3P0R  NO  DISK  ADDRESSES  ARE  GIVEN*/*  FOR  THE  WORDS  IN  THE  RR  * * R 1 * 

4*.  *) 


[ 

£ 
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C EXAMINING  THF  RB  CHAIN  FOR  THE  RFD  OR  THE  RBTC 

100  MAXWPR-32*CHSIZE 

DO  131  11=1, MAXWRR 

IF  (I.GE.NWOS)  GO  TO  240 

LINK=I3UFF(I ) .AN0.77770000000000000000B 

W=SHIFT ( IBUFF (I) ,241 

IN0=W. AND. 7 

ORO=W. AND. 77703 

ORO=SHIFT (ORO.-3) 

IF  (ORO.GT.NUMTBU  GO  TO  200 
M=M0<?0  (ORO  + l ) 

n=nord(oro+i > 

IF  (N.FQ.O)  GO  TO  200 
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C HERE  M= 1 , 2, 3 and  N=l,2,...,8. 

IF  (INO.EQ.O)  GO  TO  110 
IF  (INO.FO.3)  GO  TO  120 
CALL  A00»SS(WD,K1,NUMR9,PRU,W1) 

P 5 I N T 101,I3UFp  (I)  , I BU  F F ( I + 1 ) 

101  FORHAT<*OTHE  RB  BYTE  INDICATOR  (3ITS  36-38  OP  THE  FIRST  WOROl  OF  T 
X HE  RB  CHAIN*/*  WORD  3 A I R* , 2022  , * IS  NOT  0 OR  3,*) 

PRINT  102,IND,NUMRB,PRU,W1,K1 

10?  FQPUA  T ( * BUT  *,01,*.  THIS  WORD  PAIR  BEGINS'  AT  RB  *,04,*  *,02, 

X*  WORD  *,02,*  OF  THE  RB  CHAIN*/*  FOR  THE  PF*,R1,*.*) 

IF  ( I NO- 3 ) 111,111,112 

110  K=1 
IN  0 = 6 

GO  TO  121 

111  K= 1 
W=SHIFT<W,IN0*12) 

IN  D= I N 0*  5 

GO  TO  121 

112  K=  2 
1=1  + 1 
wn=wo+i 

H=SHIFT(IBUFF(I),(INO-3»*12) 

GO  TO  121 

120  K=  2 
1=1  + 1 
wo=wn+i 

Wr IBUPF( i ) 

121  ENTRY ( 3) = HO 


i 


i 


* 


! 
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EN  T°  Y ( 2) = SHI  FT (ENTRY (3)  ,20) 

FNT  = Y(1)=SHIFT(ENTPY(2)  ,20) 
no  122  J=IN0,7 
W=SHlFT ( W , 12 ) 

=n  = W.  ft ‘JO.  77773 

IF  (F3.EQ.0)  GO  TO  (123, 130  ), K 
IF  (RR.GT.3232)  GO  TO  202 
I NIC  Q=  A DC  fl  <h)  . AND. R8RT0L  (RR,N> 

IF  (INFO. ME. 0)  GO  TO  210 
DSK-’RS  = OSi<RBS  + l 

122  FR?Tr'L(?a,‘J)  = ENTR  Y I'D  . 0R.R6RTBL  (RB,N) 

I N ? = 3 

GO  T'"'  ( 120,1  30)  ,< 

123  1=1+1 

1 

130  IF  (LI‘IK.FQ.0)  GO  to  140 
1=1+1 

131  WD=WP+1 

GO  TO  240 

140  no  141  K*=t, I 

141  CHftlt)  ( <<  ) = HUFF  (<<  | 

*=Hf  . AND.  770 
wr=W0+o4-W 

I = I + 64 -W 

IF  ( (I.ST.NWDS)  .AND.  (RTC0DF.E0.3)  ) GO  TO  260 
IF  ( (NU*. EO. C) . AND. (T .LE.NW03) > RETURN 

<rSWIFT(Wr>,-l7)+3 
WR ITF ( l, 150)  < 

150  FORMAT  <*  1=>  3 CHAIN  FOR  T HF  FF  + , Pi  ,*...*/ ) 

J=  1 

W = NIJM 

151  CALL  P"'TFRiJ(J,W,I3UFF(i),nwCS,RTCOOE,1,INO) 

J- J* 64 

W=  W+  1 

IF  (J.LT.I)  GO  TO  151 

IF  (I.LE.NWDS)  RETURN 
CALL  TEST 
1=1 

c E T U F N 

C E FRO°  oROCFSSOR 

200  CALL  AOOFSS(WO,K,NUM°3,PRU,W) 

PRINT  20 1 , NU  MR8 , PRU , W , K 

201  FORMAT  ( * 1 T HE  RBR  OROINAL  IN  RR  *,04,*  PRO  *,02,*  WORD  *,02,»  OF  TH 
YE  R 0 CHAIN  FOR  THE  °F*,R1/*  IS  RAD.*) 

GO  TO  206 

202  CALL  ACO  = S3 ( WO,  •< , NIIMR  3 , PR  U , W ) 

PRINT  20  3 ,RR  , tUJMPR.PRU  , W,  < 

203  FORMAT ( + 1THE  VALUE  *,04,*  IN  R B *,04,*  PRU  *,02,*  WORD  *,02,*  OF  T 
YHr  =1  CHAIN  FOP  T HF  3F*,P1/*  IS  DAD.*) 

2 0 E PRIM*  207 

207  FORHAT (*0THE  ERROR  MUST  DE  CORRECTED.  ANALYSIS  WAS  TERMINATED  WHEN 
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X THIS  ERROR*/*  WAS  DETECTED. *) 

IF  ( (NUM.  NE.  0 > .OR.  (NUMRB.GT.OSKRBSn  GO  TO  300 
CALL  OSK A0D(  NUMRB, I BUFF (1 ) , CRD  , RB ) 

PRINT  209, NUMRB, X,R3,ORD 

FORMAT (*  OTHE  OISK  ADDRESS  OF  RB  *,04,*  OF  THE  R8  CHAIN  FDR  HE  PF* 
X , R 1 * * IS  RB  *,04,*  OF*/*  R9R  ORDINAL  *,02,*.*> 

GO  TO  300 


210  CALL  ADDRSS(WO,K* NUMRB, PRU, W) 

INFO=  SHI  FT (I NFO ,20*M) 

PRINT  211 »RB  » ORO 

211  FO=>HAT<*lWE  HAVE  A FATAL  CONFLICT  INVOLVING  RB  *,04,*  DF  RBR  OROIN 
XAL  *,02,*.  THIS  RB*) 

IF  (SHIFT  (INFO, -IS) .CQ. 0)  GC  TO  220 
PRINT  212, NIJMR8, RRU 

212  FORMAT ( * IS  FLAWED  (ANO  HENCE  NOT  USABLE),  BUT  IS  REFERENCED  IK  RB 
X *,04,*  PRU  *,02) 

PRINT  213, W,K 

213  FORMATt*  WORD  *,02,*  OF  THF  RB  CHAIN  FOR  THE  PF*,R1,*.*) 

GO  TO  206 


CALL  A00CSS(INF0,K1,NUMRR1,FRU1,W1) 

IF  (K.EQ.Kl)  GO  TO  230 
PRINT  221,NUMR81,PRU1,W1 

FORMAT ( * IS  REFERENCED  IN  RB  *,04,*  PRU  *,02,*  WORD  *,D2,*  OF  THE 
X RB  CHAIN  FOR  THE  Pc0*> 

PRINT  222,NJMR9,PRU,W 

FORMAT (*  AND  IN  RB  *,04,*  PRU  *,02,*  WORD  *,02,*  OF  THE  RB  CHAIN  F 
XOP  THE  R3TC. *) 

PRINT  20/ 

IF  ((PFOMRK.NE.O) .OR. (NUMRP1.GT.PF9RBS) ) GO  TO  208 
CALL  0SKA0D(NUMR81,PFDCHN(1) ,0RD,R8) 

PRINT  20B,NJMRB1,K1,RB,ORD 
GO  TO  208 


PRINT  231,NJMRB1,PRU1 , W 1 , NUMRB , PRU , W , K 

FORMAT (*  IS  REFERENCED  IN  ' B *,04,*  PRU  *,02,*  WORD  *,D 2,*  ANO  RB 
1 * , 04 , * °RU  *,02,*  WORD  *,02,*  OF*/*  THE  RB  CHAIN  FOR  THE  pp*,R1, 
2*.  *) 

PRINT  207 

IP  ( (NUM.NE. 0) .OR. (NUMRB. GT.OSKRRS) ) GO  TO  300 
CALL  DSKAQD(NUMDB1,I3UFF(1) ,ORO,RS> 

PRINT  232,NUMRB1,RB,0R0 

FORMAT (*0  THE  OIS<  AOORFSS  OF  RB  *,04,*  IS  RB  *,04,*  OF  R 3 R ORDINAL 
X *,02,*,  ANO  THE*) 

CALL  OSK ADD (NUMRB, I BUFF (1) ,CRO,R0) 

PPINT  233,NJMRB,PB,0R0 

POPMATI*  OISK  ADDRESS  CF  RR  *,04,*  IS  RB  *,04,*  OF  RBR  ORDINAL  *, 

X 02 , * . * ) 

GO  TO  300 


240 


IP  (I.p).NWDS)  wn=WD*l 

rALL  ADDPSS(W0,K,NUHO3,ppu,W) 
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PRINT  241,MARK(RTC00E) , NUHRB, PRU, W, K 

241  FORMAT (*1  AN  *,R3,*  MARK  OCCURS  AT  RB  *,04,*  PRU  *,02,*  WORD  *,02, 
X*  IN  THE  MIOOLE  OF  THE  RB*/*  CHAIN  FOR  THE  PF*, Ri,*.*) 

GO  TO  206 

242  K= SHIFT (WO, -17) +3 
PRINT  243  »K»  CHSIZE 

243  FORMAT (* 1THE  RB  CHAIN  FOR  THE  PF*, Rl,*  TAKES  MORE  THAN  *,02, 

X*  PPUS  OF  STORAGE.*! 

PRINT  207 
GO  TO  300 


250  CALL  A00RS3(W0,K,NUMR3,PRU,W) 

PRINT  25 1 »K»  NUMRB ,PRU , W 

251  FORMAT (*1THE  RB  CHAIN  FOR  THE  PF*,R1,*  IS  PRECEDED  BY  AN  EOI  MARK 
X AT  RB  *,04,*  PRU  *,02/*  WORC  *,02,*.*) 

PRINT  207 

wo  = o 

RETURN 

252  K=SHIFT (WO, -171+3 
PRINT  253, K, HUM 

253  F0RMAT(*1THE  RB  CHAIN  FOR  THE  PF*,R1,*  IS  PRECEDEO  BY  »,02,*  E CR  A 
XNO/OR  EOF  HARKS.*) 

PRINT  207 
W3=0 
PE  TURN 


260  I=I-NW”S-l 

woswp-I 

CALL  AOO-'SS  (WD,K,  NUM=3,  PRU,W) 

PRINT  251 ,K, NUMRB, PRU, W 

261  FO  PMA  T ( * 1 THE  RB  CHAIN  FOR  THE  PF*,Ri,*  IS  FOLLOWED  BY  AN  EOI  MARK 
X AT  RB  * , C4 , * PRU  *,02/*  WORD  *,02,*.*) 

GO  TO  206 


C PRINTING  THE  RB  CHAIN  AND  SEVEPAL  OF  THE  FOLLOWING  NONZERO  PRUS 

300  1=1 

W=  NUM 

N=CHSIZE  + 3 
K= SHIFT (WO, -17) +3 
WRITE (1,150)  K 
wo  = o 

310  CALL  RRTPRU( I »W , I BUFF ( l ) ,NWCS, PTCOOE ,1 , I NO) 

1=1+64 
W=  W + 1 
N=  N- 1 

IF  (N.E3.0)  RETURN 

IF  (IND.tQ.O)  GO  TO  310 
IF  (RTCOPE.EO. 3)  RETURN 
CALL  TESY 
1=1 

GO  TO  310 
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SUBROUTI) F ftn0PS3«MtI,RF,PCU,W0P0) 

IN  TFGE°  F 3,PRU,W0RD 

M IS  A 2 0 BIT  POSITIVE  INTEGER  (RIGHT  ADJUSTED!  THAT  REFERENCES 
A WORN  IN  THF  oq  CHAIN  FOR  THE  RBTC  OR  PFD.  THIS  ROUTINE  DETER- 
MINE THE  ADDRESS  ( R3  » PPU , WORD ! OF  THE  WORD.  I IS  SET  10  3 I~ 
jhf  NO  = D IS  IN  THE  R 3 CHAIN  FOR  THE  RFC.  AND  I IS  SET  TO  * IE 
THE  WOE  IS  IN  THE  RB  CHAIN  FOR  THE  °FD. 

I=SMIFT (M,-17)+3 
WORO=M. AND. 77B 
PRU=SHIFT (H.-6) .AND.1777B 
fb  = ofij/5E 
Pc  U = FRU-F  9*5  6 
R B = R 9 ♦ 1 
FND 

SUBROUTINE  DSKADD(NUHRB, CHAIN, ORO.RB) 

INTEGER  CHAI N( 1 ) , ORO, R9 , W 

CHAIN  = THE  r-B  CHAIN  FOR  THE  RRTC  OR  PEO 
NUM=9  = THE  NUM9ER  BF  AN  RB  IN  THE  R3TC  OR  PFD 

THE  ROUTINE  FINOS  THC  R MP  OkOINAL  (ORO)  AND  THE  DISK  R3  NUMBER 
( F 9 ) FOR  the  RB  REFERENCFD  BY  THE  NUMBER  NUMR3. 

1=1 
NU  U = 0 

10T  W=SHIFT < CHAI N( I ) , 24) 

INB=W. AND.  7 
QRD-W. ANr .77708 
QR 0=  SH  IE  T ( 0 R D , - 3 ) 

IF  ( INF. FO. 0 ) GO  TO  110 
IF  (IND-3)  111,120,112 

110  K=1 
INB  = 5 

GO  TO  121 

111  <=1 

W=  SHIFT  (W  ,IND,*12) 

I N 0 = T N 0+  5 
GO  TO  121 
112  K = 2 

1=  1*1 

W=  SHIFT  ( C HA  I N ( I > , (IN0-3)*12) 

GO  TO  121 

120  K=2 
1=1*1 

W = CHA I N( I ) 

121  DO  122  J=IND,7 
W-SHIFT (W ,1?) 

=>B  = W. AND.  777  7 3 

IF  (R3.EQ.0)  GO  TO  ( 123,130  ) ,K 
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SUBROUTINE  P RTPRUt I, PRU, MEM, NUMWOS , ICODE,K, INO) 

IMPLICIT  INTEGER ( A-Z ) 

C0;iM0N/CHNVAP/PE0MRK,PF0RBS,PF0CHN<64» , PFCMRK , PFCRBS , P^CC HN ( 3 2 0 > , 

X MARK ( 3 ) 

01  MENS  10  N MEM ( 1 ) 

A PRIJ  IN  THE  ARRAY  MEM  IS  TO  BE  PRINTED.  THE  OISK  ADDRESS  IS 
PRINTED  IF  K=0.  OTHERWISE,  IF  K IS  NOT  0 THEN  THE  DISK  ADDRESS 
IS  NOT  PRINTED.  IF  THE  PRU  CONTAINS  64  WORDS  THEN  THE  INDICATOR 
INO  IS  SET  TO  0.  OTHERWISE  INO  IS  SET  TO  i. 

I = THE  INDEX  OF  THE  FIRST  WORO  OF  THE  PRU  IN  MEM 

PP U = THE  NUMBER  OF  THE  PRU 

NUMWOS  = THE  NUMRER  OF  WORDS  IN  MEM 

IF  I IS  GREATER  THAN  NUMWOS  THEN  IT  IS  ASSUMED  THAT  I = NUMWDSH. 

IN  THIS  CASE  THE  PRU  IS  ASSUMED  TO  CONTAIN  NO  WORDS.  A. SO,  I" 

MEH= I RUFF  THEN  I IS  ASSUMED  NOT  TO  BE  2049. 

WORn=0 
MA  X = I + 6 3 

IF  (MAX.  LE.  NUMWOS)  GO  TO  10 
IN  0=  1 

MAX-NUMWOS 
GO  TO  20 

I NO  = 0 

00  11  J= 1 » 64 

IF  ( ME H ( H AX > . NE  • 0 ) GO  TO  20 
MAX-MAX- 1 

NUMEB=PRU/56 
NU  M°RU  = PC U-N  UMR  8*  56 
NU M° B = NJMR  HI 
IF  (K)  21,23 

WRITE (1,22)  NUMPR , NUM  PR  U 

FORMAT (*0*,T5Q ,*RB  *,04,*  PRU  *,021 

GO  TO  30 

CALL  DSKAD0(NUMR8,PFCCHN(1) ,I0RD,IRB) 

WRITE (1,24)  NUMRR,NUMPRU,IP8,I0RD 

FORMAT  (*  0*  ,T  35  , *R9  *,04,*  PFU  *,02,*  (DISK  RB  *,04,*/R3R  ORDINAL  * 

X ,02 ,*) *1 

IF  ( I . GT . NUMWOS)  GO  TO  40 
IF  (I.GT.MAX)  GO  TO  50 
WRITF(1,31) 

FORMAK*  ») 

WRITE « 1, 3 2)  ( I AOD1 (WORD) , MEM ( J)  , I BL ANK ( ME M ( J > > , J = I , MAX ) 

FORMAT ( <3(*  *,02,022,2X  , A10,3X)  ) ) 

IF  (IMD.FQ.O)  RETURN 

WRITE (1,41)  MARK ( ICOOE ) 

FORMAT ( • 0 * , R 3 ) 

PF TUF  N 


WPITF (1,511 

FORMAT (*0THIS  PRU  CONTAINS  ONLY  ZEROS.*) 
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RETURN 

END 


10 


INTEGER  FUNCTION  IBL4NK(N) 

I3L&NK-N 

DO  10  1=1,10 

ICLANK=S^IFTlI8lftNK,o) 

IF  ( (I3LANK. AND.77B) .£0.0)  I 31 A NK  = 1 BL ANK . OR . 558 

CONTINUE 

RF  TURN 

END 


INTEGER  FUNCTION  lAOOl(N) 

I A 0 0 1 = N 

N=N  + 1 

RETURN 

END 


i 
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SUBROUTINF  R PTCW- 
IMPLICIT  INTEGER ( A-Z I 

COMMON/I FET/ I BUFF <20 49) , RTC00E , NWOS , LE VE L , F I LE 
COMMON  RBRTBL (3232,8)  , AREA  <3),FNTRY<3), NUMTBL 
COMMON /RBVAR/MCOUNT, WO , I , I ERR 
COMMON/R9PORO/MORO(40) ,NORO<40) 

IN  THIS  ROUTINE  I BUFF  CONTAINS  WORDS  OF  THE  RBTC.  EACH  RRJ  CAN 
CONTAIN  ONLY  ONF  RBTC  ENTRY.  THIS  ROUTINE  EXAMINES  THE  ENTRIES. 
WHEN  AN  ERROR  IS  DETECTED  A MESSAGE  IS  PRINTED  ON  FILE  2.  ONLY 
MCOUNT  MESSAGES  ARE  WRITTEN  ON  FILE  2.  THEN  ANALYSIS  0r  ME  RBTC 
IS  TERMINATED. 

WD  = THE  NUMBER  OF  WORDS  IN  THE  RBTC  THAT  HAVE  BEEN  PRDDESSE  3 
I = THF  INDEX  OF  THE  WORD  IN  I BUFF  TO  BE  EXAMINED  NEXT 

THE  S3RTBL  ARRAY  CORRESPONDS  TO  THE  R8R  BIT  TABLES  USED  R Y THE 
SYSTEM.  HOWEVER,  INSTEAD  OF  REFERENCING  AN  RB  BY  A SINILE  BIT  (AS 
IS  DONE  IN  THE  "IT  TABLES),  20  RITS  ARE  USEC.  THE  J-TH  CD.JMN  OF 
THIS  APRAY  CONTAINS  THE  20  BIT  FIELDS  FOR  THREE  RBR  ORDINALS. 

NUMTBL  IS  THE  LARGEST  RBR  ORDINAL  USED.  IT  CANNOT  EXCEED  39. 
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IERR  = THE  NUMBER  0<=  ERRORS  FOUND  THAT  ARE  NOT  CONFLICT-. 


AT  The  BEGINNING  OF  A PRU  L WILL  NORMALLY  BE  0.  IF  I.  IS  N 3 T 0 
THEN  AN  F BTC  ENTRY  THAT  TAKES  MORE  THAN  A PRU  IS  BEING  RRDCESSED. 
IN  THIS  CASE  L IS  THE  NUMBER  OF  WOROS  IN  THE  ENTRY  THAT  H 4 V r 'JOT 
C YET  BECN  CHECKED. 

L=0 

1 2 £ a 3 = 0 

1 IF  (NWOD.GT. 0)  GO  TO  4 

WD  I = wo 

GO  TO  11 

2 IF  (RTCOiE.EO.3)  RETURN 

WD=WDw54 

3 1=1 

CALL  TEST 
GO  TO  1 

4 NtJM  = NWDS  / 64 
NUM=NUM*b4 

I F R U = I 
WOpRU  = Wr' 

C P°OCESSING  A CRU 

10  IF  (I.LT.NU-)  GO  TO  20 

IF  (NWOS.FO. 2048)  GO  TO  3 
NUM=NWr'S-NUM 

woi=wohnu»- 

11  MS  GF  = 1 

WRITE (2, 12)  MSGE,WOI ,RTCOOE , L , I Z t RO 

12  FORMAT  (5  020) 

Lr  0 

IP  (RTCDDF.NE.3)  IERR=IERP*1 
MCOUNT=MCDU' T-l 

A-I6 


1 


1 


IP  (MCOJNT.EQ.O)  RETURN 
GO  TO  2 


« i 


l « 

: l 


< 

i 
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20  W=IBUFF<I) 

IF  (L.NE.O)  GO  TO  300 
IF  (W.EQ.O)  GO  TO  501 

IF  ( (W.NE.2J  .AND. CW.NE. 22B) ) GO  TO  400 
1=1  + 1 
WO=WD+l 

C EXAMINING  AN  R3TC  ENTRY 

100  W=I3UFF(I)  . ANO. 777777  7 7 77  777777  0 0 0 OB 

IF  (W. ME. 777777772202240300008)  GO  TO  400 
1=1+10 
WD=WP+10 

L=I3UFF( I) . ANO. 777700003 
L=SHIFT (L ,-12> 

K=I3UFF(I+1) .A NO. 7777000000003 
K=5HIFT (K,-24> 

IF  (L.  EQ.  <<+  12)  ) GO  TO  500 
IN0= (L-<) .ANO.  1 

IF  ( ( INO.PQ. 1 ) .0=. (L.LT . (K+14) ) . OR. (K.LT. 11 ) .OR. (K. 6T.48) ) 
X GO  TO  402 

IF  (L.UE.62)  GO  TO  110 
MSGE=4 

HRITP (2, 12)  MSGF,WH,L , I ZERO, I ZERO 
N!C0UNT  = hC0UNT-1 
IF  (MCOUNT.EQ.O)  RETURN 

110  L=L-K- 1 2 
1= I+K+2 
Vir=WO  + K+2 
MAX  = ( 5 0- K ) / 2 
ENT “ Y ( 3 ) = SHI  FT (WO ,-o) 

ENTRY  ( ? ) = SHI FT (ENTRY ( 3)  ,20) 

ENTRY(i) = SH I FT (ENTFY (2)  ,20) 

C READING  THE  PR  CHAIN  IN  THE  ENTRY 

2 00  HO  231  JJ=1,max 

LlN<=I3UFF(I ) .AMO. 77770 00 00000 00 0000008 
W=  SHIFT ( I8U- F ( I ) , 24) 

IMO-W.A NO. 7 
0 R 0 = W . A NT.  77708 
C = Q = SHIFT (0?  P,-3> 

IF  (ORO.ir.NUMTBL)  GO  TO  201 

IF  ( (ORO.NE.  7778)  .OR.  ( L . NE  . 2 ) . C=> . (LINK.NE.  0)  ) GO  TO  403 
R3  = IRUrF  (t«-l  ) .A  NO. 77778 

IF  ( (INO.NE.7) . CE  . (R3.NE.0) ) GO  TO  403 

GO  TO  500 

201  M=MQF?0  (ORO  + 1 ) 

N= N0°0 (QRP+1 ) 

IF  (N.EQ.O)  GO  TO  403 

C HERE  H-l,2,3  ANO  N=l«2,...,8. 
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IF  (INP.FQ.O)  GO  TO  210 
IF  (TN0.E0.3)  GO  TO  220 
<=WO.ANu.  7/t 
PR  UPSHIFT (WO, -6) 

RP  = PR'J/56 
pRU=pRU-RB*66 
R 0=99+1 

ORIWT  202  ,I?(JFF(I)  ,IRUFF(I  + 1I 

20?  FORMAT ( * 0 T H I R3  BYTE  INOICATO0  (BITS  36-38  OF  THE  FIRST  WORD*  OF  T 
X HE  PO  CHAIM*/*  WORD  ’AIR*,  2022  ,*  IS  NOT  0 OR  3,*) 

PRINT  ?G?,IVr',RB,PPU,K 

20  3 c0  R A T ( » OUT  »,01,*.  THIS  WORD  PAIR  BEGINS  AT  R0  *,04,*  ’R'J  *,02, 
X*  W0=0  *,02,*.*) 

IF  < IN  J-3)  211 , 21 1, 212 

210  K=1 
INQ-5 

GO  TC  22 1 

211  K=i 

W = S H I c T (W , I NO* 1 2) 

IND=IN0+5 
GO  TO  221 

212  K=  2 
1=  1+1 
wn=wp+i 

W= Shift ( 1BUFF ( I ) , (INO-3) * 12) 

GO  TO  ’21 

2 2 0 K = 2 

1=1  + 1 
w.?  = wn  + i 
W= I3UFP ( I ) 

’21  OO  223  J = I’O  , 7 
W= SUIFT (W  ,1?) 

R‘3  = W.  AND.  7777  3 

Ir  (iT.FO.OI  GC  TC  (224,230) , K 
IP  (-9.  GT.  3 2 32)  G 0 TO  404 
I N F 0 = A ’ p A * <)  . A NO.  RnRT  ](_  (pg  ,N) 

IP  (lNrC.fO.O)  PO  TO  222 
MS  &P  =10  2 

INPQ  = SHIf  T (I HFO,?0*M) 

Nc  ITS  (2,12)  hRG1',  Wr,  INFO,  R9.0RD 
ICO'I’JT-  “C  P'JN  T-  1 
IP  ( !,C  O'J  N T • E 0 . 0 ) P r T J 3 N 

SO  T o ■>  7 ? 

2 ?"’  -P..T?l(P->,N)sFNT9YCi)  . OR.  RPR  T‘3L  (RB,N) 

223  CONTINI- 
INC  = 3 

GO  Tr  (220, 230), < 

’24  1=1+1 

W D = W G ♦ 1 
231  1=1+1 

W o = W r ♦ 1 
L = L - 2 

I r ( L ) 2 3 2 , 2 3 1 

231  TP  (LI NX  I 4 0 6,901 
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23?  IF  (LINK)  233,405 
233  CONTINUE 
GO  TO  501 


C PROCESSING  ENTRIES  THAT  TAKE  MORE  THAN  A PRU 

300  I P ( ( W.NE  .2)  . ANO. (W.NE .228) ) GO  TO  400 

I=Itl 
WO=WP+ 1 

W= I BUFFI  I). A NO. 77 7? 777777777 77 700 0 03 
IF  (W.FO. 777777772202240300003)  GO  TO  400 
M A X = 3 1 

ENTRY (3)  = SHIFT (WO,  -5) 

ENTRY (2) = SHI  FT (ENTRY (3 > ,2  0) 

ENTRY (1)= SHIFT (ENTRY (2)  ,20) 

GO  TO  200 

C NFSSAGES  THAT  TERMINATE  THE  ANALYSIS  OF  A PRU 


400  MSGE=2 

401  WR ITC (2, 1 2)  MSGE,WH,t, IZERO.IZERO 
IE  RR= IERE  + 1 

MC  OUNT  = MC  OUM  T- 1 
IP  (MCOUNT.EO. 0)  RETURN 
GO  TO  500 

402  MSGF=3 

WRITE (2, 12)  MSGF,WO,L,K*IZERO 
IERR=IERC +1 
MCO'JNT=  MCOUNT-1 
IF  (MCOJHT.EQ.O)  RETURN 
GO  TO  500 

403  MSGF-130 

WRITE (2, 1 2)  MSGE, WO, I ZERO .IZERO.IZERO 

IERR  = ICRE  *1 

MC  OUNT  = MC  CUN  T - 1 

IP  (MCOUNT.EO.O)  RFTURN 

GO  TO  500 

404  MS  GE= 1 0 1 

WRITF (2,12)  MSGE,WO,Ra,IZERC,IZEPO 

IERR=IERR+1 

MCOUNT=MCOUNT-l 

IF  (MCOiNT.EO.O)  RETURN 

GO  TO  500 

405  MS  GF  = 1 0 3 
GO  TO  401 

C SITU3  FOR  THE  NEXT  FRU 


5 00 
501 


1 = 0 

IPRU=  IPRU+54 
W0PRU  = W0PRU«-64 
l- IFFU 
WO=WOP°U 
GO  TO  10 


FNO 
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SUBROUTINE  IMFOCONtMCOUNT ) 

^ IMOL IC  IT  I NT  FGE R ( A- 7 ) 

i COMMON  RRFML  (3232,8)  , AREA  <3»  , ENTRY  (3)  .KiUMTBL 

E0UI7ALF  ICE  ( COM  1 ),  R iR  TPL  ( 1 , 1 >>.<  CONPRU  (1)  , CON  < 2 0 0 0 1 ») 

[-  IMEGFR  COM (24000), C0NP=U (4000) 

■ 

THIS  5 J J T IMF  COLLECTS  TOGETHER  THE  CONFLICTS  FOUND  BY  ?9T0H<  THAT 
t’C  NOT  INVOLVE  FLAWED  = 3S  CF  °BS  IN  THE  SB  CHAINS  FOP  THE  3F0  flNO 
°FC.  TMESF  CONFLICTS  ARE  STORE  C IN  THE  ARRAY  CON.  CON  HAS  TWO 
SRCTIO-'F.  THE  FIRST  SECTION  CONSISTS  OF  THE  FIRST  20003  WORDS'  OF 
CON.  THE  SECOND  SECTION,  WHICH  IS  THE  SUBARRAY  CONPRU,  BEGINS  AT 
THE  20001-ST  WORD  OF  CON  ANr  CONTAINS  h000  WORDS. 

THE  FIRST  SECTION  OF  CON  COf TAINS  THE  CONFLICT  ENTRIES.  THE  r IRS T 
TWO  WO-'OE  0"  AN  ENTRY  CONTAIN  T Hr  RBR  ORDINAL  (ORD)  ANO  ME  DISK 
R:  NUU3E-  (Rr)  OF  AN  RQ  THAT  IS  IN  CONFLICT.  THE  FORMAT  0"  THE 

ENTRY  IS  03 0 , R3  ,N, WQ1 , W02. . . . , WON.  THUS  THE  ENTRY  CONTAINS  N*-3 
WORDS.  MF  WORD  WD1  CONTAINS  THE  DRU  NUMBER  (SHIFTED  TO  THE  LEFT 
6 BITS)  That  WAS  STORED  IN  THE  R3RTDL  ARRAY  FOR  THIS  R?.  ME  N-l 
WORTS  '02,..., WON  CONTAIN  THE  WORD  NUMBERS  OF  THE  WORDS  IN  ME 
"EC  THAT  SUBSEQUENTLY  T 0 IE  C TO  REFERENCE  THIS  RB  (WHEN  IT  WAC 
ALREADY  KNOWN  TO  BE  IN  USE). 

AN  ENTRY  IN  THE  FI^ST  SECTION  OF  CON  MUST  CONTAIN  AT  LEAST  FIVE 
WORDS.  r A OH  F NT  RY  °ECERS  TO  A DISTINCT  RB  JN  CONFLICT.  THE  ENTRIES 
ARE  S TOR F o SEQUENTIALLY  , BFING  ORDERED  BY  THE  VALUES  Or  ORO  AND 
RB.  SINCE  ONLY  20000  WOROS  IS  BEING  ALLOTTED  FOR  THIS  SECTION, 

THE  SECTION  CAN  CONTAIN  AT  MOST  4000  ENTRIES.  THIS  LIMITS  THE 
NUMBER  '“COUNT  OF  Mr  S 3 A 0 FS  THAT  CAN  BE  ISSUED  BY  RBT  CH<  TO  4 00  0 . 
(THE  ^ARAMfTFR  MC  GUN  Y IS  SET  AT  THE  BEGINNING  OF  THE  MAIN  PROGRAM 
P3TC. ) 


The  SEDC»n  5 F C T I V!  3C  CON,  NAMFLY  THE  SUBARRAY  CONPRU,  CONTAINS 
THE  NU',3CRS  OF  The  DR'JS  IN  THE  R B TC  THAT  FIRST  REFERENCEO  THE  KBS 
IN  CONFLICT. 

" A * - 0 

m o r , •,  - rj 

0 

MF  L A WS " 0 
DO  1 1=1,24000 

I OCNCMC 

00  113  I = 1 , M COUNT 
Pt  A 0,  ( ? , 1 0 ) M SGE  , W 0 , I N F 0 , = H , ORD 
10  FORMAT (B02Q) 

I r (*'Srr  .i'E.  M2)  GO  TO  113 
W=SHIFT  ( INFO  ,-M)  +1 
GO  TO  ( 1 4 , 1 1 , 1 2 , 1 3 , 1 3 ) , W 

II  MPFC=mpfCh1 
GO  TO  113 

1 2 MFFO  = wrFMl 

GO  TO  113 

1.3  mflAWS  = mf  LAWS  + 1 

GO  TO  113 
14  MAx-"fly>i 
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j=  o 
j=j+i 

IF  (CONPRUtJ ) .NE.O)  GO  TO  21 
CONPRU(J) = INFO 
GO  TO  100 

IF  (CONPRU( JJ-INFO)  20,100,22 
CALL  ASH  I FT < CONPRU ( J ) ,MAX-J*1,1) 
CONPRU(J)  = 1 VFO 

J=1 

IF  < CON ( J + l ) ) 103,102 
CON ( J) =ORO 
CO  N ( J + 1 ) = R8 
CON ( J*  2) = 2 

CON ( J + 3 ) = SHIFT l INFO, 6) 

CON (J*4) = HO 
GO  TO  113 

IF  ( CON ( J ) -0  RO)  110,104,111 
IF  (C0N(J+1)-R8)  110,112,111 

J=J  + 3«-CON ( J*  2) 

GO  TO  101 

CALL  ASHIFTICON ( J) , 5 * M A X- J + 1 , 5 » 
GO  TO  102 
N=CON< J+2) 

CO N ( J+  2)  = N* t 
J= J+3+N 

CALL  ASHIFT(CONU)  , 5* M A X- J* 1 , 1 ) 

CON ( J) =WO 

CONTINUE 


REWINO  2 

m=max  + mpfd*-mpfc*mflahs 

IF  (M.NE.O)  GO  TO  210 

CALL  REMARK ( 19HN0  CONFLICTS  FOUNO.) 

PRINT  200 

FOR*JAT(*QNO  CONFLICTS  FOUND.*) 
RETURN 


CALL  0 1 S D L A ( 
CALL  0 IS  PL A ( 
CALL  D I S PL A ( 
CALL  OISPLA ( 
CALL  01 S pL  A { 
PRINT  211, HP 
FORMAT ( * 0 NU  M 
11)  .*/'  NUMBE 
2*  NUMBER  OF 
3*  NUMBER  OF 
4*  TOTAL  NUMB 
RETURN 
ENO 


40HNUMBER  OF  CONFLICTS  INVOLVING  FLAWS  = ,M-LAWS> 

40HNUMBER  OF  CONFLICTS  INVOLVING  PFD  RBS  = , MPFDI 

40HNJMBER  OF  CONFLICTS  INVOLVING  PFC  RBS  = .I^C) 

40HNUMBER  OF  OTHER  CONFLICTS  = ,WAX> 

40HTOTAL  NUMBER  OF  CONFLICTS  = *M) 

LAWS, MPFO,M PFC, MAX, M 

BER  OF  CONFLICTS  INVOLVING  FLAWED  RBS  = *,I4,*  (0 
P OF  CONFLICTS  INVOLVING  PFD  RBS  = *,I4,*  OECIMA 
CONFLICTS  INVOLVING  PFC  RBS  = *,I4,*  (DECIMA.).* 
OTHER  CONFLICTS  = *,I4,*  (OECIMAL).*/ 


, M A X ) 

,M) 


* , I 4 , * OECIMA 
* OECIMA1  *.*/ 


ER  OF  CONFLICTS  = 


(DECI MAL ) • * ) 


SUBROUTINE  A S HI  FT ( A , N , K ) 

INTEGER  AIN) 

HERE  IT  IS  ASSUMEO  THAT  K IS  A POSITIVE  INTEGER  EQUAL  TO  OR  LESS 
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SUBROUTINE  3ETPRU  ( PPU , I ) 

IMPLICIT  INTEGEP(A-Z) 

COMMON/IEET/I9UEF(2043> , RTCOOE , NWOS , LEVEL , F ILE 
COMMON/TVAR/ IBUFF 1(260 1 , PRUC , P , OL IMIT 


C PRU  = THE  NUMBER  OF  THE  PRU  THAT  WE  ARE  LOOKING  FOR 

C PRIJO  = THF  NUM3ER  OF  THE  FIRST  PRU  IN  IBUFF 

C P = THE  (-'UMBER  OF  PRUS  THAT  WE  WISH  TO  SAVE 

C WHEN  THIS  ROUTINE  TERMINATES  IBUFF  WILL  CONTAIN  THE  PRJ  THAT  IS 

C WANTED.  THIS  PRU  WILL  START  AT  THE  I-TH  WORD  OF  IBUFF.  (IF  I IS 

C GREATER  THAN  NWDS  THEN  THE  F RU  CONTAINS  NO  WORDS.  IN  THIS  CASE 

C THE  PRU  IS  TERMINATED  BY  AN  EOR  OR  EOF  MARK.)  ALSO  SFVERA-  PRUS 

C IMMEDIATELY  PRECFOlNG  THE  FIRST  PRU  (OF  IBUFF)  IN  THE  3F0  MAY 

C BE  SAVED. 

C THE  PRUS  THAT  ARE  TO  3E  SAVEO  ARE  INSERTED  INTO  IGUFFl.  4 PRJ 

C ENTRY  IN  I BUFFI  CONSISTS  OF  65  WORDS.  THE  FIRST  WORD  Or  AN  FNTPY 

C CONTAINS  THE  NUMBER  N OF  WORDS  OF  A PRU  ( N= 0 , 1 , . . . , 64 > . IF  THE 

C PRU  IS  FULL  THEN  THE  REMAINING  64  WORDS  OF  THE  ENTRY  CONTAIN 

C THE  64  WORDS  OE  THE  PRU.  OTHERWISE,  IE  N IS  LESS  THAN  54,  THEN 

C THE  NEXT  m WORDS  OF  THE  ENTFY  CONTAIN  THE  WORDS  OF  THE  PRJ.  ALSO 

C THE  (N+21-NR  WORD  OF  THE  ENTRY  CONTAINS  THE  PTCODE  FOR  THE  EOR 

C 0°  EOF  MARK  THAT  TERMINATES  THE  PRU. 

C NUN  = TH f TOTAL  NUMBFR  OF  PF  US  IN  IBUFF 

0 M = THF  MlMRE"  op  PRUS  IN  IBUEE  THAT  APE  TO  BE  SAVED 


GO  TC  11 

10  CALL  tfst 

11  NUM=B2 

IF  (NWDS. NF. 2046)  NUM=NWCS/64»1 
L=  PRU0»NUM 

IP  (PRU.LT.L)  GO  TO  40 
p ° 'J  0 = L 

IF  (FR'J.GF.  (PRU04-P)  ) GO  TO  10 
Mr  T N Q (NUV»P) 

CALL  4SHIFT(I3UFF1(1) ,P»65,M*o5) 
IF  (KWOS.EE. 2048)  GO  TO  20 
1 = 1 

<=2048 
GO  TC  30 


20 


21 

22 


< = (NUM-1) * 64 
N = N W 0 3 - < 

I B U F F 1 ( 1)  =N 
IRIJFFi  ( N+  2 ) = PTCODE 

IP  (N.PD.O)  GO  TO  22 

00  21  JJ=1,N 

IP'JPFl  ( JJ  + 1)  = IBUFF  (<♦  JJ) 
IP  (M.ED.l)  GO  TO  10 
t = M - 1 

1 = 66 


1 

4 


3 


3 0 


DO  .3  2 11=  1,* 
<=  K-P4 
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J=K*i 

IBUFFKII  =64 
1 = 1*1 

DO  31  JJ=1.64 
I BUFF 1(1) =1  BUFF ( J ) 

1=1*1 
J = J*1 
CONTINUE 
GO  TO  10 

I=1*(PRU-PRU01*64 

RETURN 

END 

SUBROUTINE  NXTPRU(PRU« I , I NO ) 

IMPLICIT  I NT  EGER ( A- 2 I 

COMMON/I FET/ I BUFF <20 49 ) , RTC OOE , N WOS , LEV EL, FILE 

CO MMON/ C 4 N V A P/PFOMRK  t PFOR8S  » PFOCHN (84 ) ♦ PFCMRK » PFCRBS * PrC 0 HN ( 3 2 0 J * 
X M ARK  t 3 ) 

PRU=PRU* 1 

CALL  GETFRU(PRU,I> 

IR  B= 1 ♦ PR  U /5  6 
K = PPCMRK 

IF  ( IRP.GT.PFCRBS)  K = l 

CALL  °RT  PPU(  I,PRU,I3JFF(1) t NWOS » RTCOOE » K * I ND) 

RETURN 

END 


c 

0 

c 

0 

c 

c 

c 


s 

1 0 


SU3P0UTINE  REPOPT 
IMPLICIT  INTEGER ( A-Z  > 

CONDON /I RRT/IGUFE (2040)  , RTCO OE , MW  OS  . LE VEL , F I LE 
CPMMON/T  VAP/I-3UFF1  (260)  , PRUO  ,P  , OL  I MIT 

CO  MMON/CHNVAF/PFOMRK, PFn°OS,PFrCHN(64)  , PFCMRK.PFCRBS.P'COHN (32  0)  , 
X MAR"<(3> 

COMMON  RpFTBI(3232,8> ,AREA<3> ,ENTRY(3) .NUMTBL 
EQUIVALENCE  (CON( 1)  ,P  BPTBL (1,1 > ) , (CONPPU< 1)  , CON  (200  01)  I 
INTEGER  C 0 N ( 2 4 0 0 0 ) ,CONPPU  (4000  ) 

CO  -1MCN/PPCT/ONPNUM,cNAMF  (4)  * CYCLE  » DATE , ID 

THIS  R GOT  IMF  REPORTS  THE  PESULTS  OF  THE  ANALYSIS  DONE  3Y  THE 
FCUTINE  -3TCH<.  IF  THERE  A f E rPPORS  IN  A PRU  IN  THE  POTO  THEN 
MESSAGES  ARE  PRINTED  CO JCERNING  THESE  FRRORS  AND  A BRIEF  DJM5 
IS  GIVEN.  THF  OUMP  RILL  CONTAIN  THE  PPU  IN  QUESTION,  PRECEDED 
NO  < ''' A L L Y • Y p PCUS  AND  FOLLOWED  NORMALLY  BY  Q PRUS.  A MAXIMUM 
OF  OLIMIT  SUCH  DUMPS  APE  GIVEN. 

THE  VA-IABL1?  P,0, OLIMIT  ARE  ASSIGNED  VALUES  IN  THIS  ROUTINE. 

IT  IS  A SE*JME  P THAT  d AN!  Q ARE  G R r A TE  R THAN  OR  EQUAL  T 0 2. 

D L I ‘J I T MAY  P F AMY  NONNFC-ATIVE  INTEGER.  THE  DIMENSION  O7  THE 
ARRAY  IBIJFF1  MUST  Br  EQUAL  TO  OR  GREATER  THAN  IPUI’P5.  7 0 R 
INFORMATION  ON  THE  ARRAY  IFLFF1  AN3  THE  VARIABLE  PP UO  3E7  THE 
G F T p R U ROUTINE. 

THE  VARIABLE  CARRY  WIlL  BE  0 IE  THE  RBTC  ENTRY  BEING  PEPQRTEJ 
ON  PQEC  ) CT  TAKF  MORE  THAN  A PC'J.  OTHERWISE  CARRY  WILL  HAVE 
THE  VALUF  1. 

THE  VARIABLE  SIG  IS  NORMALLY  0.  hq NEVER,  I 7 IT  BECOMES  NONZERO 
THEM  THERE  I?  EITHF?  A BUG  IN  The  PROGRAM  QP  THF  SYSTEM  H&S  BEEN 
SC  BABLY  RAVAGED  THAT  THE  FF.OG=AM  CAN  NO  LONGER  RUN  PROPERLY.  IN 
THIS  0 A S F THF  JOB  MijST  BE  ABORTED. 

F=2 
0 = 2 

OLIM!T  =15C 

°P  'J  G = 0 
CALL  TEST 
T = 1 

OmpnumxQ 
CA  RR  Y=  0 
SI  G=  0 

DE  A 0 ( 2 , 1 ) •‘SGE,WO,TNFO,PB,nF  3 
FORMAT (50?)) 

IF  (MSGF.ro. 0)  PpTUPN 
WRITE ( 10, 2) 

FORMAT  (*l*,T3F,*SI|k'MApY») 

GO  TO  10 

OPNTFQL  SECTION 

RE  A 0 ( 2 , 1 ) MS  GE , W? , INFO , PB , op  0 
I R (MsGF.fQ. o)  return 
FRU  = SUIF  T (WO, -b) 
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IF  ( (T.LE. 4000) .AND. (CONPRUCT) .NE.O))  PRU=MIN0 ( PRU » CON3R J ( T) ) 

CALL  GETPRU(PRU,I) 

DMPNUM=DMPNJM*1 

IF  ( 0 M PN  U M • G T •OLIMIT)  GO  TO  13 

IR8=FRU/56 

IPRU=PRU-IRB*56 

IF  9 = I RB* 1 

WRITE(1»11)  IR8.IPPU, PRU,OMFNUM 

11  FORMAT  (*1*,T38,*P3  *,04,*  PFU  *,02,*  (PFOUMP  PRU  *,15.5,*  (DECIMAL 
X) ) * ,T130 ,*0JMP  *,04/) 

WP ITF (10,12)  IRR, IPPU, OMPNUF 

12  FORMAT ( 1 1H0* *********/*0 *, T29, *R3  *,04,*  PRU  * , 02 , T 59 , * D J1 3 *,04/) 

13  IF  ( (PRU. El. SHIFT (WO, -6) ). AND. (MSGE.LT. 100 ) ) 

X GO  TO  (110,120,122,100) ,MSGE 

IF  (NW05.LT. (1*63) ) GO  TO  300 
W=  ITUPFd  + l)  . AND.  7777  77  77  77  777777  0000B 
IF  (W. ME. 7/7777772202240300009)  GO  TO  30 
C A R = Y = 0 

20  10  = 1 BUFF (1  + 2). A NO.  7 7 77777 77 777777777009 
10=10. OP. 55B 

IO=SHIrT  ( I J,  54) 

DO  21  J J = 1 , 4 

21  FN  A VE ( J J ) =IBUFF(I+2+JJ) 

CYCLE=5MIFT(I3UFF (1*7) ,1?) 

CYCLE= CYCLE. AN0.7777B 
nATF=5HIFT(IPUFF(I*S) ,13) 

DATE=OATE. AMO. 7777779 

22  IF  ( (T.GT.40  00  ) .OP.  (PRU. NE.CONPRU (T) ) ) GO  TO  23 
CALL  G E T C 0 ,J  ( T , PCU  , S 1 5 ) 

IF  (SIG.FO.l)  GO  TO  310 
T = T * 1 

23  IF  (ppu. '■  F.5HIFT  ( H0,-6)  ) GO  TO  40 
K-MEGE-gq 

GO  TO  (lbO, 162, 130, 1 70  ) ,K 

30  IF  (CARRY.  EO.O)  10=0 

GO  TO  22 

40  Ic  (OM°NUM.LE. OLIMIT)  GO  TO  200 
PRU=PRU* 1 

CALL  GFTPRU( PRU , I ) 

41  IF  (CARRY.FO.O)  GO  TO  10 
IF  (MSGE.EQ. 0)  RETURN 

42  IF  ( (PR  J.  FO.  SHIFT  (WO  ,-6)  ) .OF  . ( (T.LE.4000)  . AND.  (P.RU.EQ.  DONPR’J  ( T)  ) ) ) 

X GO  TO  10 

IF  (NWOS.GF. (1*63))  GO  TO  43 
CA  RP Y = 0 
GO  TO  10 

43  W= I9UFF ( T+1 ) .ANC.77777777777777770000B 
IF  (W.NE. 777777772202240300008)  GO  TO  44 
carry=o 

GO  TO  10 

44  PRU=PRU*1 

CALL  GET  PRU( FRU , I ) 

GO  TO  42 
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103  IE  (OMFNUfc'.GT .OLIMIT)  GO  TC  102 
WRITE ( 1,101) 

WRITE  (10,101) 

101  COP“AT(*OTHE  ROTO  ENTRY  BEGINNING  IN  THIS  PRU  IS  LONGER  TRAN  A PRU 
X IN  LENGTH.*) 

1 C 2 PE  AO  ( 2 , 1 ) MSGE,WO,INEO,»B,CPO 

CAR^Y=1 
GO  TO  20 

113  Ir  (NWDO.GE, (1*63) I GO  TO  301 
CARRY  = 1 

IF  (Ompnum.GT. OLIMIT)  GO  TO  5 
WRITEC1,111)  MAP<(INFO) 

WRITE (10, 111)  MARK(INEO) 

111  FORMAT (*0THIS  °FU  CONTAINS  AN  *,R3,*  MARK.*) 

GO  TO  200 

120  CARRY  = 0 

IE  (DMRNCH.GT.OLIMIT)  GO  TO  5 
WOROrWO. AND. 7 7 B 
WRITE(  1,121)  WO  E O 
WRITF (1 0 , 121)  WORD 

121  format <*0WOe O *,02,*  OF  THIS  PRU  IS  BAD.*) 

GO  TO  200 

122  C A R F Y = 0 

IF  (OMPNUK. ST. OLIMIT)  GO  TO  5 

writf(i,i?3)  Info , p o 

WRITE  ( 10  , 123)  I F 0 , R n 

123  F 0 3 A T ( * 0 1 N THIS  pej,  riTHEF  THE  NUMBER  *,04,*  GIVEN  FDR  THE  SIZE 

1 OF  THE  E f'TRY  * /*  IN  WORD  13  OR  THE  NUMBER  »,04,*  GIVEN  r 0 R THE  BEG  I 
2NNING  OF  TH-  RB  CHAIN*/*  IS  BAD.  IF  S IS  THE  FIRST  NUM3  E R AND  K TH 
3 E SFCONO  N'JMPER,  THEN  THE  RP*/*  CHAIN  IS  ASSUMED  TO  BEGIN  AT  WORD. 
4K*  1 5 (OCTAL)  ANO  THr  NUMBER  OF  WORDS*/*  IN  THE  R3  CHAIN  IS  ASSUMEO 

5 TO  BE  S-K-14  (OCTAL).  ANALYSIS  OF  TH  S PRU*/*  WAS  TERMINATED  WHEN 

6 THIS  cRC0'-  WAS  DETECTED.*) 

GO  TO  200 

133  W=5HTFT  ( INFO  ,-lfS) 

IF  (W.NE.D)  GO  TO  (ISO  ,15  0,302,140)  ,W 
CALL  NTRYCOE (WD,PP,ORD) 

REA  0(2*1)  MEGE, W0,INC0 , RP.CRD 
GO  T0  23 

143  IF  (SMRNU* .ST. OLIMIT)  GO  TC  143 
WRITF ( 1, 141)  RB.ORD 
WRITE ( 10  , 141  ) P B * Op  0 

141  format (*owe  havf  a conflict  involve  No  rb  *,04,*  of  pbr  ordinal  *, 

X02,*.  THIS  rb  IS*) 

WOPOrWO. AND. 773 
WRITE  (1,142)  WORD 
WFITF  (10,142)  WORD 

142  FORMAT(*  FLAWED,  AND  HENCE  MOT  USABLE.  IT  IS  REFERENCED  IN  WDRD  », 

XO? , * . *) 

143  PFAD(?,1)  'Gl,  WO,  INFO,  RB.ORD 
GO  TO  23 
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150  IF  <nMONUM.GT.Oi_IMIT»  GO  TO  154 
WF  ITF  (1*141)  R3,0RC 
WPITEdO,  141  ) R8,0RD 
WOpn=WO. ft NO. 770 

CALL  AU0CSS<  INFO.Kd^O,  IPRU.IWO) 

W=ITE<1,153)  WORO.IRO, IPRU,IWO,K 
WRITP  (10,153)  W0RD,IR3,I°RU,IWD,K 

153  FCIRMAT<*  CEF ERENCEQ  IN  WORD  *,02,*  OF  THIS  FRU  AND  IN  ?3  *,04, 

X*  P = U * , C 2 , * WOPn  *,02,*  OF  THE*/*  R3  CHAIN  FOR  THE  PF*,?1,*.*) 

154  RE  ft  0 < 2 , 1 > M.SGF,WD,INFO,RB,ORO 
GO  TO  23 

160  C ft  R RT - 0 

IF  <0MFNL"!.GT.DLIMIT)  GO  TO  5 
WORO=WO. ANO. 773 
WRITE < 1, 161)  W0  = 0 
WRITF <10,161)  WORD 

161  FORMAT (*CTHE  RBP  OPOINAL  IN  WORD  *,02,*  OF  THIS  PRU  IS  3A3.  ANALYS 
XIS  OF  THIS  RRU*/*  WAS  TERHINflTEO  WHEN  THIS  ERROR  WAS  DETESTED.*) 

GO  TO  200 

162  C 6 R R Y - 9 

IF  ( r M PN I ) N.  GT  • OLIMIT)  GO  TO  5 
WORO=  W 0.  ft *IQ.  773 
W- XT'"  < 1,  163)  INFO,WOcO 
WR  I TF (13,1 63)  INFO, WORD 

16T  CCRMAT (*OTHF  VALUE  *,04,*  IN  WORD  *,02,*  OF  THIS  PkU  IS  3AD.  A Nfl  L Y 
XSIS  0 F THIS  PRU*/*  WAS  TERMINATED  WHEN  THIS  ERROR  WAS  DETESTED.*  ) 
GC  TO  200 

17ft  Oft  RF Y = 0 

IF  (DMONUM.3T. OLIMIT)  GO  TC  5 
WORO=WD. AND. 773 
WRITE (l, 171)  WORD 
WRITF(10,171)  wn=>o 

171  FO  Rvft  T < * C AT  THE  BEGINNING  OF  THF  ENTRY,  EITHER  THE  NUM3FR  S GIVEN 
1 F 0 f THE  5 T 7E  * / * OF  THE  ENTFY  OP  THE  NUMBER  K GIVEN  FOR  THE  BEGINNI 
2NG  OF  THF  RB  CHAIN*/*  IS  BAD.  THE  R R CHAIN  IS  ASSUMEn  TO  BEGIN  AT 
3 W 0 f 0 <+15  (OCTAL)  0F  THE*/*  ENTRY  AND  THE  NUMBER  OF  WORDS  in  THE  ° 
4 B CHAT)  IS  ASSUMED  TO  BE  S-k-14*/*  (OCTAL).  THIS  ER=>OR  WftS  NOT  DFT 
5ECTEC  UNTIL  WORD  *,04,*.  THEN  ANALYSIS*/*  WAS  TERMINATED.*) 


C DUMP  PCINTEF 

200  IF  ( (NWDS.LT.  (I +63) ) . AND. (RTCOrE.EO.  3) ) GO  TO  202 
PRU  = FRtJ+  1 
P:  F + l 

CALL  GrTPtU(PRU,I) 

20?  WPITF ( 1, 203) 

203  FORMAT (11H0**********/) 

IP‘3=1  +PRU/56 
<=PFCMR< 

IP  ( IRB. GT.FFCRBS)  <=1 
P 0 = 9 

Jr  I -64  * p 
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IF  (J.GE.l)  GO  TO  220 

IF  (PRU.GE.P)  GO  TO  210 
J=1 

P0=l+(I-ll/54 
GO  TO  221 

210  IPRU=PRU-P-1 
P0=P-(I-l)/&4 
J=1+(P0-1)*65 
00  211  JJ=1,P0 
N=IBUFF1( Jl 
ICODE=0 

IF  (N.NE.&4)  IC00E=I9UFF1  ( J + N+l) 

CALL  PRTPRU(i,IPRU  + JJ,  I8UFFKJ  + 1) , N , ICOOE , K ♦ INO > 

211  J= J-65 
J=1 

220  P0=P-P0+1 

221  IPRU  = PP(J-PO 

00  222  JJ=1,P0 

CALL  PRTPRLH  J , I PR U+ J J , I BUFF ( 1 > , NWOS  , RTCODE t K , IND ) 

222  J=J+64 
P=P-1 

IF  (UNO.  NE.O).ANO.  (RTCODE.  EQ.  31)  RETURN 

230  IF  ( (MSGE.EQ. 0) .OR. (3RU.LE. SHIFT (WO, -6) ))  GO  TO  240 
PE  AO ( 2 » l ) MSGE,WO, INP0,R8,0R0 
GO  TO  230 

240  DO  243  JJ=2,Q 

IF  ( (PRU.EQ.  SHIFT (WO, -6) ) .OR. ( (T . LE . 4000) . A NO. ( PRU. EQ. GONPRU (T) ) ) > 
X GO  TO  250 

IF  (NWOS. GE. (1+63))  GO  TO  241 
CARRY=0 
GO  TO  242 

241  IF  (CARRY. EQ.O)  GO  TO  242 

W= I BUFF(I+1). AND. 777777 7777777 77 7 00009 
IF  (W.EQ. 777777772202240300008)  C ARRY=0 

242  CALL  NXTPRU(PRU,I,IN0) 

IF  < (INO.NE. 0) .ANO. (RTC00E.EQ.3) > RETURN 

243  CONTINUE 
GO  TO  41 

250  WRITE ( 1, 251) 

251  FORMAT (*ONOTE. . . FOR  THE  PRUS  IMMEDIATELY  FOLLOWING  THE  LAST  PRU  I 
XN  THIS  DUMP* I 

K=OMPNUN+l 
WP ITE ( 1 , 252)  K 

252  FORMAT ( T 10 , * SEE  THE  NEXT  OUMP  (DUMP  *,04,+  ).*) 

GO  T n io 

C LOSS  OF  SYNCHRONIZATION  SECTION 

300  SIG=2 

GO  TO  310 

301  SIG=3 
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GO  TO  310 
302  SI  G = 4 

310  <=474747473 
IPB=PRU/56 
IPRU=PRU-IPR*56 
IP3=IR3*1 

PRINT  31 1 » <» IRB»IPRU*K 

311  FORMAT <*0*,R4,*  SYNCHRONIZATION  LOST  AT  RB  *,04,*  PRU  »,3?,*.  THIS 
X IS  A PATAL  CONDITION.  SEE  THE  NEXT  PAGE.  *,P4) 

“PINT  32  C 

3 20  PORN AT (* 1 THE  RE  IS  EITHER  A BUG  IN  THIS  PROGRAM,  OR  THE  SYSTEM  HAS 

1 P E E N SO  BAOLY*/*  DAMAGED  THAT  THE  PROGRAM  CAN  NO  LONGER  RUN  PROPER 
2LY.  IN  EITHER  CASE*/*  THE  JOB  MUST  BE  ABORTED.  THE  EOR.EDP.EDI  MAR 
3 <S  ENCOUNTERED  WERE  ...*/) 

WRITP (1,321) 

WRITE (10 , 321 ) 

321  CG  R M A T ( * 01  HE  JOB  WAS  4 3 OPTED  PREMATURELY.  FOR  FURTHER  DETAILS  SEE 

XTHE  MESSAGES  PRECEDING  THE  SUMMARY  AND  DUMPS.*) 

REWIND  2 

330  crAn<2,t)  M5GE,WQ,lNpO,RB,GFO 
IE  (MSGE.ED. 0)  GO  TO  340 

IE  (MSGE.NE.l)  GO  TO  330 
WORC=MD. AND. 773 
°PU  = SHTET  <WD ,-£> ) 

I R 3 = ®RU/ S 6 
IPRIJ  = PR'J-Ij3*5ft 
IR3=IR 3*1 

PRINT  331,  IRB,  IPPU,WORD  .MARK  (INFO) 

331  FO  R M A r ( * pp  *,04,*  =RU  *,02,*  WORD  *,02,4X,R3,*  MARK.*) 

GO  TO  330 

340  P-INT  341 

341  c0  RMAT ( * 0 IN  THE  °EP0°T  ROUTINE  Thp  VALUES  OF  THE  MAJOR  VARIABLES  A 
XT  Thp  t i vf  */ * of  Twp  A 3 OcT  ARE  ...*/) 

PRINT  342  , SIG 

34?  p 0 ~ M A T ( * SIG  = *,111 

PRINT  343,1 

343  PO=MAT(*  I = *,I4.4»*  (DFCIMAL)*) 

PRINT  344.PRU0 

344  cO  RN  A T ( * F-  J C = * , 1 5 . ‘3  , * (DECIMAL)*) 

RE  TURN 
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SUBROUTINE  GPTCON<IO,PRUNUM,SIG» 

IMPLICIT  INT  EGER  ( A-Zl 

COMMON/ 1 FET/ 1 BUFF  120  49)  , RTCCOE , NWDS , LEVEL , F I LE 
COMMON  RBRTBL (3232,8)  .AREA (3», ENTRY (31 , NUMT  8L 
EQUIVALENCE  (CON  U > , R 3RTBL ( 1 , 1 > ) , (CONPRU11 ) , CON (20001) » 
INTEGER  CON(24000> , CO NP RU (4 0 0 0 ) 

PRUHUM  = THE  NUMBER  OF  THE  PRU  WHICH  CONTAINS  THE  CONFLICT 
10  = THE  INDEX  OF  THE  FIRST  WORD  OF  THE  PRU 


J=1 

PRU  = SH I F T (PEUNUM, 6) 

IF  ( (J.GT. 19995) .OR. ( CON ( J+l ) . EQ. 0) ) RETURN 
IF  <CON( J+3> . EQ. PRU)  GO  TO  20 
J=J+3+C0N  (J+2) 

GO  TO  10 

W= I BUFF ( I 0 + 1). A MO. 77 7 7777  777 77 77/700008 
IF  (W.E0.77777777220224030000B)  GO  TO  30 
1=10+1 
WO=l 
MAX=31 
GO  TO  100 

K=IBUFF(I 0 + 12). AN  0.  77 77000000003 
<=SHIFT(K,-24) 

W D = < + 1 3 
I = I 0 + WO 
MAX= (50-K) /? 

00  131  11=1, MAX 

LI HK= I 3UF  F ( I ) .AND.77770000000000000000B 
W=SHIFT( IBUFF(I) ,24) 

IND=W. ANF .7 
ORO=W. ANF. 77703 
OcO  = SHI-T ( OR  n , -3) 

I F (ORB.)  E.CON(J))  GO  TO  123 
IF  (INC.FQ.O)  GO  TO  110 
I F ('NO- 3)  111,120,112 


- 1 

I N Q = S 
r,r  T r 1^1 
N - 1 

,MTFT(^,INn*12) 

T *;  '-IN  If  4 
, T~  1?1 


I If) 

~ rt  +1 

w r :rr  , ; m. IFF  ( I ) , ( T NO- 3 ) * 12  ) 

- j T ' 121 


■1 

4 


1 2 0 


V z ? 

; i + 1 

w r;  = w + 1 
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W= IBUF  F ( I ) 

121  DO  122  JJ=lNn,7 
W=  SH IFT  ( H , 1 2 > 

. AMO . 7777B 

IF  (RB.EO.O)  GO  TO  (123, 130  ), K 
IF  (FB.NF .COV ( J+l> ) GO  TO  122 
CO  M < J ♦ 3 ) =DPU+WO 
CALL  NTPYCON (CON( J+3) ,RB,OFD) 

GO  TO  11 
12?  CONTINUE 
I N D = 3 

GO  TO  (120,130) ,K 
123  1=1*1 

W r = W D ♦ 1 

130  1=-  (LlNK.r.0.0)  GO  TO  132 
1=1  + 1 

131  WD=MD+l 

132  ?IG  = 1 
pfTUcN 
END 

£U3~OUTISF  NTRYCDiVfWO,  PP.OFC) 

IMPLICIT  I NT  p GF  p ( A-7  > 

COMMON /T V A-/ I3UFF1 (26  0 » ,ORUO ,P,OLIMIT 
COMMON  / 2 P PT  / OMPM'JM.FNAMF  (4)  .CYCLE,  CATE,  10 

W P I T F ( 3 ) vnfP MPNU M, P M A Ml,CYClF,OATE, 10 
IF  ( 0 M P N U m . G T . 0 L I M I T ) SETUP) 

WORF-WE.  AND.  77B 

HP  ITE ( 1 , 1 0)  F 3,0=0,^020 

WPI  T.E  ( 10  , 10)  7P,0?D,W030 

ic  F?p»-AT(*0WE  May  F fl  CONFLICT  INVOLVING  RF  *,04,+  oF  RB2  ORDINAL  * , 
XO?,*.  T^Ir  33  Ic*/*  :EFF'-Ff:CEr  IN  WORD  *,02,*.*) 
return 
FUO 
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SU3RQUTINF  CONTPL 
IMPLICIT  I NT  FGFP ( A- Z ) 

COTTON  KrpTBL (3232, 8 > , ARE  A (3) , ENTRY (3) , NUMTBL 
EQUIVALEMCE  (CON(1),R3PT0L(1,1>),  (CONPRU(l  ) ,CON  (200  01  ) » 

INTEGER  C ON (24000), CO NpRU  (4000) 

THIS  ROUTINE  ANO  ITS  CURROUTINE  PRTDATA  GIVE  A TABLE  WHICH  CROSS 
PE  Fc' FNCES  THE  CONFLICTS  NOT  INVOLVING  FLAWED  RBS  OR  R3S  IN  THE 
PR  CHAINS  FOP  THE  PF'J  ANO  PFC. 

IF  (CON’(?).EO.O)  RFTURN 
J=1 

PRINT  1 

FORMAT (*1TA3LE  OF  CONFLICTS  NOT  INVOLVING  FLAWEO  RBS  OR  R3S  IN  THE 
X PP  CHADS  c O R THE  p F O AND  F FC  * ) 

PRINT  11, CON  (J+l)  ,CON<J) 

FORMAT (11 H0**********/*0THE  RB  IN  CONFLICT  IS  RB  *,04,*  3r  R 3 R ORD 
XINAL  *,02,*.  THIS  F 3 IS  REFERENCED  BY  ...*) 

N=CON ( J*2 ) 

J=  J+3 

CO  12  JJ-l.N 

CALL  PpTr  ATA  (CON(J)  ) 

J = J + l 

IE  ( ( J.GT , 1993S) .OP.  (CON ( J+l ) . EO. 0) ) °E  TURN 

GO  TO  10 

END 


SURPOUTINr  PPTOATA(WG) 

IMPLICIT  INTFGEP(A-Z) 

CO  1HON/TV AP/IBUPPl (2  SO ) ,PRUO,P,DLIMIT 
INTEGER  FLAME (4) 

WO  R D= W 0. AMD. Z7B 
PRU-EHIFT  (NO  ,-b) 
rMrP~'j/5G 
p R u = ppi|-;  6 

=R=°3+1 

P : I NT  1 , " P ,PPl), 

EO '.mat  ( * OPR  * , 04  , * ppij  *,02,*  WOcD  *,02) 

P’EAP  ( ? ) W ,"LPHUf",FrAME  , CYCLF  ,CATF  , IF 

IF  (U.FO.O)  r.  q JO  4? 

IF  ( W . ’ F . w c ) GO  Tn  TO 
IF  ( 1 0 . r 0 . 0 ) GO  TO  40 

ppJNT  00 

PJ  < " A T ( * THIS  WOrO  A DDF  A p S IN  The  plLF  WHOSE  NAME,  CXC.E,  ID,  AND 
PA  TP  A-p  ...*) 

f-  PINT  21  , (IPLANK(FNAHE  ( J)  ) , J=1 , 4) 
p 0 |J  ‘ ' A T ( T Z , * N A M E = *,4A10) 

PE  1'  T 22.CXC1E 

FORMAT (TZ , ‘CYCLF  = *,I4.4,*  (DECIMAL)*) 

PRIM  23,I‘3L  AN*  (ID) 

FOR  ’AT (T7 ,* ID  = * , A 1 0 I 


lil 


m - J A T c .AN0.77ZB 
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IF  ( (N.GT.O) .ANO. (N.LE.  366) ) GO  TO  31 
PRINT  30 

F0RMAKT7, ’CREATION  DATE  ...  NOT  AVAILABLE*! 

GO  TO  40 

YR=SHIFT (0ATE.-9) 

LP  = 0 

K=  YR . AND • 3 

IF  (K.EO.O)  LP=1 

CALL  GETDATE (LP,N, MONTH, DAY) 

PRINT  32, MONTH, DAY, YR 

FORMAT (T7 .’CREATION  TATE  = * , 1 2 . 2 , */* , 1 2. 2 , */’, 12 . 2 1 

IF  (DMPNUM.LE.OLIMITI  PRINT  41 , DMPNUM 

FORMAT  < * FOR  FURTHER  DETAILS  SEE  OUHP  *,04,*.*) 

REWIND  3 

RETURN 

END 


SUBROUTINE  G E TO  A TE  t L° , N , M , 0 ) 

INTEGER  D 

THIS  ROUTINE  COMPUTES  THE  MONTH  ( M)  ANO  THE  OAY  (0)  OF  THE  MONTH 
FOR  THE  N-T H OAY  OF  THE  YEAR.  (IF  THE  YEAR  IS  A LEAP  YEAR  THEN  N 
CAN  HAVE  ANY  OF  THE  VALUES  1 , 2 , . . . , 366 . ) 


LP  = 1 IF  THE  YEAR  IS  A LEAP  YEAR.  OTHERWISE  LP=0  . 


IE  (O.LE. (59’LP) ) GO  TO  11 
M = 3 

0=0-69-1° 

IF  (O.LE. 153)  GO  TO  10 
M=  8 

0=0-153 


<=  (0-1) /El 

Mr  W *■  2 * K 
0=  0-6 1 *< 

.IF  (O.LE. 31)  RETURN 

M=  M + 1 

0=0-31 

RETURN 

ENO 
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